home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / mui_add-ons / mcc_mathstring / mcc-install < prev   
Encoding:
Text File  |  1996-09-08  |  90.0 KB  |  2,559 lines

  1. ;
  2. ; Installer script for MUI custom classes
  3. ;
  4. ; Copyright © 1996 Kai Hofmann
  5. ; All rights reserved!
  6. ; Released as Freeware without any explicit or implicit warranty!
  7. ;
  8. ; EMail: i07m@zfn.uni-bremen.de
  9. ; WWW  : http://www.informatik.uni-bremen.de/~i07m/
  10. ;
  11. ; $VER: MCC-Install 43.2 (27.08.96)
  12. ;
  13. ; -----------------------------------------------------------------------------
  14. ; WrapGuide is copyright © 1994-1995 Udo Schuermann
  15. ; -----------------------------------------------------------------------------
  16. ;
  17. ; Archive structure:
  18. ;
  19. ; MCC_<name>/.Product-Info
  20. ; MCC_<name>/MCC_<name>.readme
  21. ; MCC_<name>/MCC_<name>.readme.info
  22. ; MCC_<name>/MCC-Install
  23. ; MCC_<name>/MCC-Install.info
  24. ; MCC_<name>/Libs/MUI/<name>.mcc
  25. ; MCC_<name>/Libs/MUI/<name>.mcp                (optional)
  26. ; MCC_<name>/Libs/MUI/<name>000.mcc                (optional)
  27. ; MCC_<name>/Libs/MUI/<name>000.mcp                (optional)
  28. ; MCC_<name>/Libs/MUI/<name>010.mcc                (optional)
  29. ; MCC_<name>/Libs/MUI/<name>010.mcp                (optional)
  30. ; MCC_<name>/Libs/MUI/<name>020.mcc                (optional)
  31. ; MCC_<name>/Libs/MUI/<name>020.mcp                (optional)
  32. ; MCC_<name>/Libs/MUI/<name>020f.mcc                (optional)
  33. ; MCC_<name>/Libs/MUI/<name>020f.mcp                (optional)
  34. ; MCC_<name>/Libs/MUI/<name>030.mcc                (optional)
  35. ; MCC_<name>/Libs/MUI/<name>030.mcp                (optional)
  36. ; MCC_<name>/Libs/MUI/<name>030f.mcc                (optional)
  37. ; MCC_<name>/Libs/MUI/<name>030f.mcp                (optional)
  38. ; MCC_<name>/Libs/MUI/<name>040.mcc                (optional)
  39. ; MCC_<name>/Libs/MUI/<name>040.mcp                (optional)
  40. ; MCC_<name>/Libs/MUI/<name>040f.mcc                (optional)
  41. ; MCC_<name>/Libs/MUI/<name>040f.mcp                (optional)
  42. ; MCC_<name>/Libs/MUI/<name>060.mcc                (optional)
  43. ; MCC_<name>/Libs/MUI/<name>060.mcp                (optional)
  44. ; MCC_<name>/Docs/english/<name>_mcc.guide
  45. ; MCC_<name>/Docs/english/<name>_mcc.guide.info
  46. ; MCC_<name>/Docs/english/<name>_mcc.doc                    (optional)
  47. ; MCC_<name>/Docs/english/<name>_mcc.doc.info               (optional)
  48. ; MCC_<name>/Docs/......./<name>_mcc.guide            (optional)
  49. ; MCC_<name>/Docs/......./<name>_mcc.guide.info             (optional)
  50. ; MCC_<name>/Docs/......./<name>_mcc.doc            (optional)
  51. ; MCC_<name>/Docs/......./<name>_mcc.doc.info               (optional)
  52. ; MCC_<name>/Demos/<name>-Demo                    (optional)
  53. ; MCC_<name>/Demos/<name>-Demo.info                (optional)
  54. ; MCC_<name>/Locale/Catalogs/.../MonthNavigator_mcc.catalog (optional)
  55. ; MCC_<name>/Locale/Catalogs/.../MonthNavigator_mcp.catalog (optional)
  56. ; MCC_<name>/Developer/Autodocs/MCC_<name>.doc
  57. ; MCC_<name>/Developer/C/Include/MUI/<name>_mcc.h
  58. ; MCC_<name>/Developer/C/Examples/<name>-Demo.c             (optional)
  59. ; MCC_<name>/Developer/Amiga-E/Modules/MUI/<name>_mcc.e     (optional)
  60. ; MCC_<name>/Developer/Amiga-E/Examples/<name>-Demo.e        (optional)
  61. ; MCC_<name>/Developer/Modula/txt/MCC<name>.def             (optional)
  62. ; MCC_<name>/Developer/Modula/txt/MCC<name>.mod             (optional)
  63. ; MCC_<name>/Developer/Modula/Demo/<name>Demo.mod        (optional)
  64. ; MCC_<name>/Developer/Oberon/txt/MCC<name>.mod             (optional)
  65. ; MCC_<name>/Developer/Oberon/examples/<name>Demo.mod        (optional)
  66. ; MCC_<name>/Developer/Assembler/Include/MUI/<name>_mcc.i   (optional)
  67. ; MCC_<name>/Developer/Assembler/Examples/<name>-Demo.s     (optional)
  68. ; MCC_<name>/C/WarpGuide                    (optional)
  69. ;
  70. ; --- Custom initialisation ---------------------------------------------------
  71.  
  72.  ; Copyright
  73.  (set #copyright "Copyright © 1996 Vincenzo Gervasi - ICARUS")
  74.  
  75.  ; Minimum MUI version required for installation
  76.  (set #min_mui_version 12)
  77.  (set #min_mui_revision 0)
  78.  
  79.  ; Bultin language
  80.  ; Bit    0 = English
  81.  ; Bit    1 = German
  82.  ; Bit    2 = French
  83.  ; Bit    3 = Spanish
  84.  ; Bit    4 = Portuguese
  85.  ; Bit    5 = Danish
  86.  ; Bit    6 = Italian
  87.  ; Bit    7 = Dutch
  88.  ; Bit    8 = Norwegian
  89.  ; Bit    9 = Swedish
  90.  ; Bit 10 = Polish
  91.  ; Bit 11 = Finnish
  92.  ; Bit 12 = Hungarian
  93.  ; Bit 13 = Greek
  94.  ; Bit 14 = Esperanto
  95.  ; Bit 15 = Turkish
  96.  ; Bit 16 = Latin
  97.  ; Bit 17 = Russian
  98.  (set #language_mcc %111111111111111111) ; LANGUAGE
  99.  (set #language_mcp %000000000000000001) ; LANGUAGE
  100.  
  101. ; --- Custom installation procedures ------------------------------------------
  102.  
  103.  (procedure P_CustomExists
  104.   ; Params:
  105.   ;
  106.   ; Results:
  107.   ; #custom_ver #custom_rev
  108.   ;
  109.   ; Used Vars:
  110.   ; #file #ver #rev #vernum
  111.  )
  112.  
  113.  (procedure P_CustomInstall
  114.   ; Params:
  115.   ; #custom_ver #custom_rev
  116.   ;
  117.   ; Results:
  118.   ;
  119.   ; Used Vars:
  120.   ; #ver #rev #vernum #ver2 #rev2
  121.  )
  122.  
  123.  (procedure P_CustomUninstall
  124.   ; Params:
  125.   ;
  126.   ; Results:
  127.   ;
  128.   ; Used Vars:
  129.   ; #i
  130.  )
  131.  
  132. ; -----------------------------------------------------------------------------
  133. ; --- Do not change anything below this line ----------------------------------
  134. ; -----------------------------------------------------------------------------
  135.  
  136.  (set @default-dest "MUI:")
  137.  
  138.  (if (= @installer-version 0)
  139.    (
  140.     ; old Installer
  141.     (set #prop "")
  142.    )
  143.    (
  144.     ; new Installer
  145.     (set #prop "\x1b[2p")
  146.    )
  147.  )
  148.  
  149. ; --- Installer script strings ------------------------------------------------
  150.  
  151.  (set #i 0)
  152.  (while (<> @language (select #i "svenska" "nederlands" "greek" "français" "italiano" "dansk" "deutsch" @language)) ; LANGUAGE
  153.    (set #i (+ #i 1))
  154.  )
  155.  (if (= #i 7) ; LANGUAGE
  156.    (set #language "english")
  157.    (set #language @language)
  158.  )
  159.  
  160.  
  161.  (set #i 0)
  162.  (set #language_default %100000000000000000) ; LANGUAGE
  163.  (while (<> #language (select #i "russian" "latina" "türkçe" "esperanto" "greek" "magyar" "suomi" "polski" "norsk" "svenska" "nederlands" "italiano" "dansk" "português" "español" "français" "deutsch" #language)) ; LANGUAGE
  164.    (
  165.     (set #language_default (shiftright #language_default 1))
  166.     (set #i (+ #i 1))
  167.    )
  168.  )
  169.  (select #i ; LANGUAGE
  170.    ( ; Russian
  171.     (complete 0)
  172.    )
  173.    ( ; Latina
  174.     (complete 0)
  175.    )
  176.    ( ; Türkçe
  177.     (complete 0)
  178.    )
  179.    ( ; Esperanto
  180.     (complete 0)
  181.    )
  182.    ( ; Greek translation by Pantelis Kopelias <paco@odysseus.ermis.forthnet.gr>
  183.     (if (= @installer-version 0)
  184.       (
  185.        (set #help_askoptions "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå checkbox-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá áãíïçèåß.\n\n")
  186.        (set #help_askchoice "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå radio-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá Ý÷åé áðïôÝëåóìá ôçí åðüìåíç ÷áìçëþôåñç äéáèÝóéìç åðéëïãÞ.\n\n")
  187.       )
  188.     )
  189.     (set #unknown        "Üãíùóôá")
  190.     (set #choice_english    "ÁããëéêÜ")
  191.     (set #choice_german     "ÃåñìáíéêÜ")
  192.     (set #choice_french     "ÃáëëéêÜ")
  193.     (set #choice_spanish    "ÉóðáíéêÜ")
  194.     (set #choice_portuguese "ÐïñôïãáëéêÜ")
  195.     (set #choice_danish     "ÄáíÝæéêá")
  196.     (set #choice_italian    "IôáëéêÜ")
  197.     (set #choice_dutch        "ÏëëáíäéêÜ")
  198.     (set #choice_norwegian  "ÍïñâçãéêÜ")
  199.     (set #choice_swedish    "ÓïõçäéêÜ")
  200.     (set #choice_polish     "ÐïëùíéêÜ")
  201.     (set #choice_finnish    "ÖéëëáíäÝæéêá")
  202.     (set #choice_hungarian  "ÏõããñéêÜ")
  203.     (set #choice_turkish    "ÔïõñêéêÜ")
  204.     (set #choice_greek      "ÅëëçíéêÜ")
  205.     (set #choice_latin      "ËáôéíéêÜ")
  206.     (set #choice_esperanto  "ÅóðåñÜíôï")
  207.     (set #choice_russian    "ÑùóóéêÜ") ; LANGUAGE
  208.  
  209.     (set #choice_catalogs   "ÊáôÜëïãïé")
  210.     (set #choice_docs        "Ïäçãßåò/Åã÷åéñßäéá")
  211.     (set #choice_developer  "Õëéêü ãéá Developers")
  212.     (set #choice_install    "ÅãêáôÝóôçóå")
  213.     (set #choice_uninstall  "ÁðåãêáôÝóôçóå")
  214.     (set #prompt_askcpufpu       (cat "Ðáñáêáëþ åðéëÝîôå ôçí CPU/FPU configuration ãéá ôçí ïðïßá èÝëåôå íá åãêáôáóôÞóåôå ôçí " @app-name ".mcc"))
  215.     (set #prompt_info           (cat "\nÊáëùóÞëèáôå óôï " @app-name " MUI custom class\n" #copyright "\n\n"))
  216.     (set #prompt_install_uninstall (cat #prompt_info "ÈÝëåôå íá åãêáôáóôÞóåôå Þ íá áðåãêáôáóôÞóåôå ôÞí custom class?"))
  217.     (set #abort_nocpu ( cat "Óõãíþìç, ôï script áäõíáôåß íá åãêáôáóôÞóåé ôï " @app-name ".mcc, ãéáôß ç CPU configuration óáò äÝí õðïóôçñßæåôáé.\n"))
  218.     (set #abort_nomui (cat "Tï " @app-name " MUI custom class ìðïñåß íá ÷ñçóéìïðïéçèåß ìüíï ìå ôï Magic User Interface (MUI), ÷ùñßò áõôü ç custom class åßíáé Ü÷ñçóôç!\n\n"
  219.                "Ï åãêáôáóôÜôçò äÝí âñÞêå ôï " @default-dest " ãéá íá ãßíåé assigned, ãéáõôü ðáñáêáëþ åãêáôáóôÞóôå ôï MUI ðñßí ðñïóðáèÞóåôå íá åãêáôáóôÞóåôå ôï " @app-name ".mcc!\n"
  220.               )
  221.     )
  222.     (set #abort_oldmui (cat "Ãéá íá åãêáôáóôÞóåôå ôï " @app-name ".mcc ÷ñåéÜæåóôå ôï MUI %s ôïõëÜ÷éóôïí.\n\n"
  223.                 "Ï åãêáôáóôÜôçò âñÞêå üôé ôï MUI %s åßíáé åãêáôåóôçìÝíï.\n"
  224.                )
  225.     )
  226.     (set #welcome_install (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá åãêáôÜóôáóçò.\n"
  227.                    "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
  228.               )
  229.     )
  230.     (set #welcome_uninstall (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá áðåãêáôÜóôáóçò.\n"
  231.                  "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
  232.                 )
  233.     )
  234.     (set #prompt_uninstall_parts (cat "ÐïéÜ ìÝñç èÝëåôå íá áöáéñÝóåôå ;\n"
  235.                       @app-name ".mcp èá áöéñÝóåé êáé ôïõò ó÷åôéêïýò catalogs åðßóçò.\n"
  236.                  )
  237.     )
  238.     (set #prompt_uninstall_all (cat "ÈÝëåôå íá áöáéñÝóåôå üëá üóá ó÷åôßæïíôáé ìå ôï " @app-name ".mcc;"))
  239.     (set #help_uninstall_all "¶í äÝí èÝëåôå íá ôá áöáéñÝóåôå üëá, èÜ åñùôçèåßôå ðïéÜ ìÝñç èÝëåôå íá áöáéñåèïýí.")
  240.     (set #prompt_uninstall_plangs "ÐïéÜ õðïóôÞñéîç ãéÜ ãëþóóá ðñïãñáììáôéóìïý èÝëåôå íá áöáéñåèåß ;")
  241.     (set #prompt_uninstall_mcp_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéÜ ôï " @app-name ".mcp èá èÝëáôå íá áöáéñåèïýí ;"))
  242.     (set #prompt_uninstall_mcc_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc èá èÝëáôå íá áöáéñåèïýí ;"))
  243.     (set #prompt_uninstall_agdocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñåèïýí ïß AmigaGuide® ïäçãßåò ;")
  244.     (set #prompt_uninstall_docs "Ðïéïý ôýðïõ ïäçãßåò èá èÝëáôå íá áöáéñåèïýí ;")
  245.     (set #abort_oldversion (cat "Ï åãêáôáóôÜôçò âñÞêå üôé ç Ýêäïóç %ld.%ld ôïý " @app-name ".mcc åßíáé Þäç åãêáôåóôçìÝíç.\n\n"
  246.                 "Aí èÝëåôå íá åðáíåãêáôáóôÞóåôå ôçí ðáëéþôåñç Ýêäïóç %ld.%ld ôüôå ðáñáêáëþ áöáéñÝóôå ôçí íåþôåñç Ýêäïóç ðñþôá."
  247.                )
  248.     )
  249.     (set #prompt_update (cat "ÐïéÜ ìÝñç ôïõ " @app-name ".mcc èÝëåôå íá ðñïóôåèïýí óôçí åãêáôÜóôáóç ;"))
  250.     (set #prompt_install_mcc_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc ÈÝëåôå íá åãêáôáóôáèïýí ;"))
  251.     (set #prompt_install_mcp_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcp ÈÝëåôå íá åãêáôáóôáèïýí ;"))
  252.     (set #prompt_install_docs "Ðïéïý ôýðïõ ïäçãßåò èÝëåôå íá åãêáôáóôÞóåôå ;")
  253.     (set #prompt_install_agdocs "Ãéá ðïéÝò ãëþóóåò èÝëåôå íá åãêáôáóôÞóåôå ôéò AmigaGuide® ïäçãßåò ;")
  254.     (set #prompt_install_demo "ÈÝëåôå íá åãêáôáóôÞóåôå ôï õðÜñ÷ïí demo ;")
  255.     (set #help_install_demo (cat "Ôï demo åßíáé Ýíá ìéêñü ðñüãñáììá ðïõ åðéäåéêíåßåé ôçí ÷ñÞóç ôÞò " @app-name "custom class."))
  256.     (set #prompt_install_plangs "ÐïéÜ õðïóôÞñéîç ãéá ãëþóóåò ðñïãñáììáôéóìïý èÝëåôå íá åãêáôáóôÞóåôå ;")
  257.     (set #prompt_copy "ÈÝëåôå íá áíôéãñáöåß(ïýí) ôï(á) áêüëïõèï(á) áñ÷åßï(á);")
  258.     (set #prompt_makedir "Ç áêüëïõèç directory äÝí âñÝèçêå, Ýôóé èá ðñÝðåé íá äçìéïõñãçèåß:")
  259.  
  260.     (set #prompt_uninstall_asciidocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñÝóåôå ôéò ASCII ïäçãßåò ;")
  261.     (set #prompt_install_asciidocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá åãêáôáóôÞóåôå ôéò ASCII ïäçãßåò ;")
  262.     (set #exit_uninstall_finished (cat "Ç ÁðåãêáôÜóôáóç ôåëåßùóå ! Ôï\n"
  263.                                        '"'
  264.                                        @app-name
  265.                                        '"'
  266.                                        " áöáéñÝèçêå áðü ôï "
  267.                                        '"'
  268.                                        @default-dest
  269.                                        '"'
  270.                                        " óõñôÜñé (Þ ôìÞìá äßóêïõ)."
  271.                                   )
  272.     )
  273.    )
  274.    ( ; Magyar
  275.     (complete 0)
  276.    )
  277.    ( ; suomi
  278.     (complete 0)
  279.    )
  280.    ( ; polski
  281.     (complete 0)
  282.    )
  283.    ( ; Swedish translation by Jesper Jonsson <jojo@update.uu.se>
  284.     (if (= @installer-version 0)
  285.       (
  286.        (set #help_askoptions "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser checkbox-knappar utan tillhörande text. Att välja dessa har ingen verkan.\n\n")
  287.        (set #help_askchoice "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser radioknappar utan tillhörande text. Väljer du någon av dessa så kommer det närmast undre alternativet att bli valt.\n\n")
  288.       )
  289.     )
  290.     (set #unknown        "okänt")
  291.     (set #choice_english    "Engelska")
  292.     (set #choice_german     "Tyska")
  293.     (set #choice_french     "Franska")
  294.     (set #choice_spanish    "Spanska")
  295.     (set #choice_portuguese "Portugisiska")
  296.     (set #choice_danish     "Danska")
  297.     (set #choice_italian    "Italienska")
  298.     (set #choice_dutch        "Holländska")
  299.     (set #choice_norwegian  "Norska")
  300.     (set #choice_swedish    "Svenska")
  301.     (set #choice_polish     "Polska")
  302.     (set #choice_finnish    "Finska")
  303.     (set #choice_hungarian  "Ungerska")
  304.     (set #choice_turkish    "Turkiska")
  305.     (set #choice_greek      "Grekiska")
  306.     (set #choice_latin      "Latin")
  307.     (set #choice_esperanto  "Esperanto")
  308.     (set #choice_russian    "Ryska") ; LANGUAGE
  309.  
  310.     (set #choice_catalogs   "Kataloger")
  311.     (set #choice_docs        "Dokumentation")
  312.     (set #choice_developer  "Material för utvecklare")
  313.     (set #choice_install    "Installera")
  314.     (set #choice_uninstall  "Avinstallera")
  315.     (set #prompt_askcpufpu       (cat "Välj den processorkonfiguration för vilken du vill installera " @app-name ".mcc"))
  316.     (set #prompt_info           (cat "\nVälkommen till " @app-name " MUI-klass \n" #copyright "\n\n"))
  317.     (set #prompt_install_uninstall (cat #prompt_info "Vill du installera eller avinstallera klassen?"))
  318.     (set #abort_nocpu (cat @app-name ".mcc kunde inte installeras, eftersom din CPU-konfiguration inte stöds.\n"))
  319.     (set #abort_nomui (cat "Installeraren kunde inte hitta din MUI-installation. Var vänlig installera MUI innan du installerar " @app_name ".\n"))
  320.     (set #abort_oldmui (cat "För att installera " @app-name ".mcc måste du lägst ha version %s av MUI installerad. Du har endast version %s installerad.\n"))
  321.     (set #welcome_install (cat "Välkommen till installationsprogrammet för MUI-klasser.\n"
  322.                    "Var vänlig välj hur installationen skall fortsätta (beroende på dina kunskaper om Amigan)."))
  323.     (set #welcome_uninstall (cat "Välkommen till avinstallationsprogrammet för MUI-klasser.\n"
  324.                  "Var vänlig välj hur installationen skall fortsätta (beroende på dina kunskaper om Amigan)."))
  325.     (set #prompt_uninstall_parts (cat "Vilka delar vill du avinstallera?\n"
  326.                       "Detta kommer också att avinstallera tillhörande kataloger."))
  327.     (set #prompt_uninstall_all (cat "Vill du avinstallera hela " @app-name".mcc?"))
  328.     (set #help_uninstall_all (cat "Om du inte vill avinstallera allt, så kommer du att få välja vilka delar du vill avinstallera."))
  329.     (set #prompt_uninstall_plangs (cat "Vilka programmeringsspråk vill du avinstallera stödet för?"))
  330.     (set #prompt_uninstall_mcp_catalogs (cat "Vilka kataloger för " @app-name ".mcp vill du avinstallera?"))
  331.     (set #prompt_uninstall_mcc_catalogs (cat "Vilka kataloger för " @app-name ".mcc vill du avinstallera?"))
  332.     (set #prompt_uninstall_agdocs (cat "För vilka språk vill du avinstallera AmigaGuide®-dokumentationen?"))
  333.     (set #prompt_uninstall_docs (cat "Vilka typer av dokument vill du avinstallera?"))
  334.     (set #abort_oldversion (cat "Installeraren har upptäckt att version %ld.%ld av " @app-name ".mcc redan är installerat.\n\n"
  335.                 "Om du vill installera den äldre versionen %ld.%ld så måste du avinstallera den nyare versionen först."))
  336.     (set #prompt_update (cat "Vilka delar av " @app-name ".mcc vill du addera till installationen?"))
  337.     (set #prompt_install_mcc_catalogs (cat "Vilka kataloger för " @app-name ".mcc vill du installera?"))
  338.     (set #prompt_install_mcp_catalogs (cat "Vilka kataloger för " @app-name ".mcp vill du installera?"))
  339.     (set #prompt_install_docs "Vilka typer av dokument vill du installera?")
  340.     (set #prompt_install_agdocs "För vilka språk vill du installera AmigaGuide®-dokumentationen?")
  341.     (set #prompt_install_demo "Vill du installera det tillhörande demoprogrammet?")
  342.     (set #help_install_demo (cat "Demoprogrammet är ett litet program som demonstrerar funktionerna i " @app-name "-klassen."))
  343.     (set #prompt_install_plangs "Vilka programmeringsspråk vill du installera stöd för?")
  344.     (set #prompt_copy "Vill du kopiera följande filer?")
  345.     (set #prompt_makedir "Följande katalog kunde inte hittas, så den måste skapas:")
  346.     (set #prompt_uninstall_asciidocs "För vilka programmeringsspråk vill du avinstallera ASCII-dokumentationen?")
  347.     (set #prompt_install_asciidocs "För vilka programmeringsspråk vill du installera ASCII-dokumentationen?")
  348.     (set #exit_uninstall_finished (cat "Avinstallation färdig!\n"
  349.                        '"'
  350.                          @app-name
  351.                        '"'
  352.                        " har tagits bort från katalogen "
  353.                        '"'
  354.                        @default-dest
  355.                        '"'
  356.                         "."
  357.                       )
  358.     )
  359.    )
  360.    ( ; norsk
  361.     (complete 0)
  362.    )
  363.    ( ; nederlands translation by Eric Krieger <ekrieger@quasar.xs4all.nl>
  364.     (if (= @installer-version 0)
  365.       (
  366.        (set #help_askoptions "Met het programma Installer tot versie 42.6 kan het gebeuren dat u checkbox-buttons ziet zonder labels. Het selecteren van deze buttons zal worden genegeerd.\n\n")
  367.        (set #help_askchoice "Met het programma Installer tot versie 42.6 kan het gebeuren dat u een radio-buttons ziet zonder labels. Het selecteren van deze buttons zal resulteren in de volgende lager beschikbare selectie.\n\n")
  368.       )
  369.     )
  370.     (set #unknown        "onbekend")
  371.     (set #choice_english    "Engels")
  372.     (set #choice_german     "Duits")
  373.     (set #choice_french     "Frans")
  374.     (set #choice_spanish    "Spaans")
  375.     (set #choice_portuguese "Portugees")
  376.     (set #choice_danish     "Deens")
  377.     (set #choice_italian    "Italiaans")
  378.     (set #choice_dutch        "Nederlands")
  379.     (set #choice_norwegian  "Noors")
  380.     (set #choice_swedish    "Zweeds")
  381.     (set #choice_polish     "Pools")
  382.     (set #choice_finnish    "Fins")
  383.     (set #choice_hungarian  "Hongaars")
  384.     (set #choice_turkish    "Turks")
  385.     (set #choice_greek      "Grieks")
  386.     (set #choice_latin      "Latijns")
  387.     (set #choice_esperanto  "Esperanto")
  388.     (set #choice_russian    "Russisch") ; LANGUAGE
  389.  
  390.     (set #choice_catalogs   "Catalogs")
  391.     (set #choice_docs        "Documentatie")
  392.     (set #choice_developer  "Developer materiaal")
  393.     (set #choice_install    "Installeren")
  394.     (set #choice_uninstall  "De-installeren")
  395.     (set #prompt_askcpufpu       (cat "Selecteer A.U.B. de CPU/FPU configuratie voor welke u " @app-name ".mcc wenst te installeren."))
  396.     (set #prompt_info           (cat "\nWelkom tot " @app-name " MUI custom class\n" #copyright "\n\n"))
  397.     (set #prompt_install_uninstall (cat #prompt_info "Wilt u de custom class installeren of de-installeren?"))
  398.     (set #abort_nocpu ( cat "Sorry, dit script is niet in staat om " @app-name ".mcc te installeren, omdat uw CPU configuratie niet ondersteund wordt.\n"))
  399.     (set #abort_nomui (cat "Het " @app-name " MUI custom class kan alleen gebruikt worden met Magic User Interface (MUI), zonder dit is het custom class onbruikbaar!\n\n"
  400.                "De Installer heeft " @default-dest " niet als assign gevonden, installeerd u A.U.B. MUI voor opnieuw een poging tot installeren van " @app-name ".mcc te doen!\n"
  401.               )
  402.     )
  403.     (set #abort_oldmui (cat "Om " @app-name ".mcc te kunnen installeren heeft u MUI %s als een minimum nodig.\n\n"
  404.                 "De Installer heeft gevonden dat alleen MUI %s is geinstalleerd.\n"
  405.                )
  406.     )
  407.     (set #welcome_install (cat "Welkom tot de MUI custom class installatie utilitie.\n"
  408.                    "Geeft u A.U.B. aan hoe de installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  409.               )
  410.     )
  411.     (set #welcome_uninstall (cat "Welkom tot de MUI custom class de-installatie (verwijder) utilitie.\n"
  412.                  "Geeft u A.U.B. aan hoe de de-installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  413.                 )
  414.     )
  415.     (set #prompt_uninstall_parts (cat "Welke delen wilt u de-installeren?\n"
  416.                       @app-name ".mcp zal ook gerelateerde Catalogs files de-installeren.\n"
  417.                  )
  418.     )
  419.     (set #prompt_uninstall_all (cat "Wilt u alle tot " @app-name ".mcc gerelateerde zaken de-installeren?"))
  420.     (set #help_uninstall_all "Wanneer u niet alles tegelijk wilt de-installeren, wordt u gevraagd welke delem u wel wilt de-installeren.")
  421.     (set #prompt_uninstall_plangs "Voor welke programeertalen wilt u ondersteuning de-installeren?")
  422.     (set #prompt_uninstall_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u de-installeren?"))
  423.     (set #prompt_uninstall_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u de-installeren?"))
  424.     (set #prompt_uninstall_agdocs "Voor welke talen wilt u de AmigaGuide® documentatie de-installeren?")
  425.     (set #prompt_uninstall_docs "Welke type document(en) wilt u de-installeren?")
  426.     (set #abort_oldversion (cat "De Installer heeft versie %ld.%ld van " @app-name ".mcc gevonden, welke al reeds geinstalleerd is.\n\n"
  427.                 "Wanneer u de oudere versie %ld.%ld wilt herinstalleren, wilt u dan A.U.B. eerst de nieuwere versie de-installeren."
  428.                )
  429.     )
  430.     (set #prompt_update (cat "Welke delen van " @app-name ".mcc wilt u toevoegen tot de installatie?"))
  431.     (set #prompt_install_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u installeren?"))
  432.     (set #prompt_install_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u installeren?"))
  433.     (set #prompt_install_docs "Welke type document(en) wilt u installeren?")
  434.     (set #prompt_install_agdocs "Voor welke talen wilt u de AmigaGuide® documentatie installeren?")
  435.     (set #prompt_install_demo "Wilt u de meegeleverde demo installeren?")
  436.     (set #help_install_demo (cat "De demo is een klein programma welke het gebruik demonstreerd van de " @app-name "custom class."))
  437.     (set #prompt_install_plangs "Voor welke programeertalen wilt u ondersteuning installeren?")
  438.     (set #prompt_copy "Wilt u de volgende file(s) kopieren?")
  439.     (set #prompt_makedir "De volgende directory is niet gevonden, daarom zal deze worden aangemaakt:")
  440.  
  441.     (set #prompt_uninstall_asciidocs "Voor welke talen wilt u de ASCII documentatie de-installeren?")
  442.     (set #prompt_install_asciidocs "Voor welke talen wilt u de ASCII documentatie installeren?")
  443.     (set #exit_uninstall_finished (cat "De-installatie voltooid!\n"
  444.                                        '"'
  445.                                        @app-name
  446.                                        '"'
  447.                                        " is verwijderd van uw "
  448.                                        '"'
  449.                                        @default-dest
  450.                                        '"'
  451.                                        " directory (of partitie)."
  452.                                   )
  453.     )
  454.    )
  455.    ( ; italiano translation by Paolo Menichetti <Paolo.Menichetti@infoservice.it>
  456.     (if (= @installer-version 0)
  457.       (
  458.        (set #help_askoptions "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni senza descrizione. Eventuali selezioni di questi bottoni saranno ignorate.\n\n")
  459.        (set #help_askchoice "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni mutualmente esclusivi senza descrizione. Un click su tali bottoni corrisponde all'attivazione della successiva voce nella lista che sia selezionabile.\n\n")
  460.       )
  461.     )
  462.     (set #unknown        "sconosciuto")
  463.     (set #choice_english    "Inglese")
  464.     (set #choice_german     "Tedesco")
  465.     (set #choice_french     "Francese")
  466.     (set #choice_spanish    "Spagnolo")
  467.     (set #choice_portuguese "Portoghese")
  468.     (set #choice_danish     "Danese")
  469.     (set #choice_italian    "Italiano")
  470.     (set #choice_dutch        "Tedesco")
  471.     (set #choice_norwegian  "Norvegese")
  472.     (set #choice_swedish    "Svedese")
  473.     (set #choice_polish     "Polacco")
  474.     (set #choice_finnish    "Finlandese")
  475.     (set #choice_hungarian  "Ungherese")
  476.     (set #choice_turkish    "Turco")
  477.     (set #choice_greek      "Greco")
  478.     (set #choice_latin      "Latino")
  479.     (set #choice_esperanto  "Esperanto")
  480.     (set #choice_russian    "Russo") ; LANGUAGE
  481.  
  482.     (set #choice_catalogs   "Cataloghi")
  483.     (set #choice_docs        "Documentazione")
  484.     (set #choice_developer  "Materiale per sviluppatori")
  485.     (set #choice_install    "Installo")
  486.     (set #choice_uninstall  "Disinstallazione")
  487.     (set #prompt_askcpufpu       (cat "Per favore, seleziona la CPU/FPU del tuo computer; verrà così installata la classe " @app-name ".mcc ottimizzata."))
  488.     (set #prompt_info           (cat "\nBenvenuto nell'installazione di " @app-name " MUI custom class\n" #copyright "\n\n"))
  489.     (set #prompt_install_uninstall (cat #prompt_info "Vuoi installare o disinstallare la custom class?"))
  490.     (set #abort_nocpu ( cat "Spiacente, l'installatore non può installare la classe " @app-name ".mcc, perché la tua CPU non è supportata.\n"))
  491.     (set #abort_nomui (cat "La custom class MUI " @app-name " può essere usata solo con Magic User Interface (MUI), senza la quale la custom class è inutile!\n\n"
  492.                "L'installatore non ha trovato l'assegnamento " @default-dest ", dunque installa MUI prima di installare " @app-name ".mcc!\n"
  493.               )
  494.     )
  495.     (set #abort_oldmui (cat "Per installare " @app-name ".mcc hai bisogno quantomeno della versione %s di MUI.\n\n"
  496.                 "L'installatore ha trovato installata solo la versione %s di MUI.\n"
  497.                )
  498.     )
  499.     (set #welcome_install (cat "Benvenuto nella procedura di installazione delle custom classes di MUI.\n"
  500.                    "Indicare, per favore, come questa procedura di installazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
  501.               )
  502.     )
  503.     (set #welcome_uninstall (cat "Benvenuto nella procedura di disinstallazione delle custom classes di MUI.\n"
  504.                      "Indicare, per favore, come questa procedura di disinstallazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
  505.                 )
  506.     )
  507.     (set #prompt_uninstall_parts (cat "Quali parti vuoi che siano disinstallate?\n"
  508.                       @app-name ".mcp sarà disinstallato con i relativi cataloghi.\n"
  509.                  )
  510.     )
  511.     (set #prompt_uninstall_all (cat "Vuoi disinstallare tutto quello che è correlato a " @app-name ".mcc?"))
  512.     (set #help_uninstall_all "Se non vuoi disinstallare tutto, allora ti verrà richiesto cosa disinstallare.")
  513.     (set #prompt_uninstall_plangs "Quali file di supporto per i linguaggi di programmazione vuoi rimuovere?")
  514.     (set #prompt_uninstall_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi rimuovere?"))
  515.     (set #prompt_uninstall_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi rimuovere?"))
  516.     (set #prompt_uninstall_agdocs "Per quali linguaggi voi rimuovere la documentazione in formato AmigaGuide®?")
  517.     (set #prompt_uninstall_docs "Quali tipi di documentazione vuoi rimuovere?")
  518.     (set #abort_oldversion (cat "L'installatore ha trovato la versione %ld.%ld di " @app-name ".mcc già installata.\n\n"
  519.                 "Se vuoi reinstallare la vecchia versione %ld.%ld allora prima rimuovi la nuova versione."
  520.                )
  521.     )
  522.     (set #prompt_update (cat "Quali parti di " @app-name ".mcc vuoi aggiungere alla installazione?"))
  523.     (set #prompt_install_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi installare?"))
  524.     (set #prompt_install_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi installare?"))
  525.     (set #prompt_install_docs "Quali tipi di documentazione vuoi installare?")
  526.     (set #prompt_install_agdocs "Per quali linguaggi vuoi installare la documentazione in AmigaGuide®?")
  527.     (set #prompt_install_demo "Vuoi installare i programmi dimostrativi forniti?")
  528.     (set #help_install_demo (cat "Un dimostrativo è un piccolo programma che illustra l'uso della custom class " @app-name ))
  529.     (set #prompt_install_plangs "Per quale linguaggio di programmazione vuoi installare i file di supporto?")
  530.     (set #prompt_copy "Vuoi copiare i seguenti file?")
  531.     (set #prompt_makedir "La seguente directory non è stata trovata, dunque verrà creata:")
  532.     (set #prompt_uninstall_asciidocs "Per quali linguaggi di programmazione vuoi rimuovere la documentazione in ASCII?")
  533.     (set #prompt_install_asciidocs "Per quali linguaggi di programmazione vuoi installare la documentazione in ASCII?")
  534.     (set #exit_uninstall_finished (cat "Disinstallazione completata!\n"
  535.                                        '"'
  536.                                        @app-name
  537.                                        '"'
  538.                                        " è stato rimosso dalla directory "
  539.                                        '"'
  540.                                        @default-dest
  541.                                        '"'
  542.                                   )
  543.     )
  544.    )
  545.    ( ; dansk translation by Ole Friis <olef@dk-online.dk>
  546.     (if (= @installer-version 0)
  547.       (
  548.        (set #help_askoptions "Med en Installer ældre end 42.6 kan det ske, at du ser V-mærke-knapper uden navn. Der vil intet ske ved at trykke på dem.\n\n")
  549.        (set #help_askchoice "Med en Installer ældre end 42.6 kan det ske, at du ser radio-knapper uden navn. Trykker du på en, vil du i stedet vælge den nedenunder.\n\n")
  550.       )
  551.     )
  552.     (set #unknown        "ukendt")
  553.     (set #choice_english    "Engelsk")
  554.     (set #choice_german     "Tysk")
  555.     (set #choice_french     "Fransk")
  556.     (set #choice_spanish    "Spansk")
  557.     (set #choice_portuguese "Portugisisk")
  558.     (set #choice_danish     "Dansk")
  559.     (set #choice_italian    "Italiensk")
  560.     (set #choice_dutch        "Hollandsk")
  561.     (set #choice_norwegian  "Norsk")
  562.     (set #choice_swedish    "Svensk")
  563.     (set #choice_polish     "Polsk")
  564.     (set #choice_finnish    "Finsk")
  565.     (set #choice_hungarian  "Ungarsk")
  566.     (set #choice_turkish    "Tyrkisk")
  567.     (set #choice_greek      "Græsk")
  568.     (set #choice_latin      "Latinsk")
  569.     (set #choice_esperanto  "Esperanto")
  570.     (set #choice_russian    "Russisk") ; LANGUAGE
  571.  
  572.     (set #choice_catalogs   "Oversættelser")
  573.     (set #choice_docs        "Dokumentation")
  574.     (set #choice_developer  "Udvikler-materiale")
  575.     (set #choice_install    "Installere")
  576.     (set #choice_uninstall  "Fjerne")
  577.     (set #prompt_askcpufpu       (cat "Vælg venligst CPU/FPU-konfigurationen, for hvilken De ønsker at installere " @app-name ".mcc"))
  578.     (set #prompt_info           (cat "\nVelkommen til " @app-name " MUI custom class\n" #copyright "\n\n"))
  579.     (set #prompt_install_uninstall (cat #prompt_info "Ønsker De at installere eller at fjerne den pågældende custom class?"))
  580.     (set #abort_nocpu ( cat "Desværre, scriptet kan ikke installere " @app-name ".mcc, idet din CPU-konfiguration ikke er understøttet.\n"))
  581.     (set #abort_nomui (cat @app-name " MUI custom class'en kan kun bruges med Magic User Interface (MUI), og uden denne er custom class'en ubrugelig!\n\n"
  582.                "`Install' har ikke fundet " @default-dest " til at være assignet, så installér venligst MUI, før du installerer " @app-name ".mcc!\n"
  583.               )
  584.     )
  585.     (set #abort_oldmui (cat "For at installere " @app-name ".mcc behøver du MUI %s som minimum.\n\n"
  586.                 "`Install' har kun fundet MUI %s installeret.\n"
  587.                )
  588.     )
  589.     (set #welcome_install (cat "Velkommen til MUI custom class installations-værktøjet.\n"
  590.                    "Vælg venligst, hvordan installationen skal forløbe (baseret på Deres kendskab til Amiga-computeren)."
  591.               )
  592.     )
  593.     (set #welcome_uninstall (cat "Velkommen til MUI custom class fjerne-værktøjet.\n"
  594.                  "Vælg venligst, hvordan fjernelsen skal forløbe (baseret på Deres kendskab til Amiga-computeren)."
  595.                 )
  596.     )
  597.     (set #prompt_uninstall_parts (cat "Hvilke dele ønsker De at fjerne??\n"
  598.                       @app-name ".mcp vil også fjerne de tilhørende oversættelser.\n"
  599.                  )
  600.     )
  601.     (set #prompt_uninstall_all (cat "Ønsker De at fjerne alt relateret til " @app-name ".mcc?"))
  602.     (set #help_uninstall_all "Hvis De ikke ønsker at fjerne alt, vil De blive spurgt, hvilke dele, der skal fjernes.")
  603.     (set #prompt_uninstall_plangs "Hvilke programmeringssprog ønsker De at fjerne understøttelse fra?")
  604.     (set #prompt_uninstall_mcp_catalogs (cat "Hvilke oversættelser for " @app-name ".mcp ønsker De at fjerne?"))
  605.     (set #prompt_uninstall_mcc_catalogs (cat "Hvilke oversættelser for " @app-name ".mcc ønsker De at fjerne?"))
  606.     (set #prompt_uninstall_agdocs "For hvilke sprog ønsker De at fjerne AmigaGuide®-dokumentation?")
  607.     (set #prompt_uninstall_docs "Hvilken type dokumenter ønsker De at fjerne?")
  608.     (set #abort_oldversion (cat "`Installer' har opdaget, at version %ld.%ld af " @app-name ".mcc allerede er installeret.\n\n"
  609.                 "Hvis De ønsker at gen-installere den gamle version %ld.%ld, så fjern venligst den nye version først."
  610.                )
  611.     )
  612.     (set #prompt_update (cat "Hvilke dele af " @app-name ".mcc ønsker De at tilføje?"))
  613.     (set #prompt_install_mcc_catalogs (cat "Hvilke oversættelser til " @app-name ".mcc ønsker De at installere?"))
  614.     (set #prompt_install_mcp_catalogs (cat "Hvilke oversættelser til " @app-name ".mcp ønsker De at installere?"))
  615.     (set #prompt_install_docs "Hvilken type dokumenter ønsker De at installere?")
  616.     (set #prompt_install_agdocs "På hvilke sprog ønsker De at installere AmigaGuide®-dokumentation?")
  617.     (set #prompt_install_demo "Ønsker De at installere det inkluderede demonstrationsprogram?")
  618.     (set #help_install_demo (cat "Dette demonstrationsprogram er et lille program, som demonstrerer brugen af " @app-name "custom class."))
  619.     (set #prompt_install_plangs "Hvilke programmeringssprog ønsker De at installere understøttelse for?")
  620.     (set #prompt_copy "Ønsker De at kopiere de(n) følgende fil(er)?")
  621.     (set #prompt_makedir "Følgende skuffe var ikke fundet, så den skal skabes:")
  622.     (set #prompt_uninstall_asciidocs "For hvilke sprog ønsker De at fjerne ASCII-dokumentation?")
  623.     (set #prompt_install_asciidocs "På hvilke sprog ønsker De at installere ASCII-dokumentation?")
  624.     (set #exit_uninstall_finished (cat "Fjernelse færdig!\n"
  625.                                        '"'
  626.                                        @app-name
  627.                                        '"'
  628.                                        " er fjernet fra din "
  629.                                        '"'
  630.                                        @default-dest
  631.                                        '"'
  632.                                        "-skuffe (eller partition)."
  633.                                   )
  634.     )
  635.    )
  636.    ( ; português
  637.     (complete 0)
  638.    )
  639.    ( ; español
  640.     (complete 0)
  641.    )
  642.    ( ; français translation by Francis Labrie <fb691875@er.uqam.ca>
  643.     (if (= @installer-version 0)
  644.       (
  645.  
  646.        (set #help_askoptions "Avec l'Installer à la version antérieur à 42.6 il est possible que des cases à crochets s'affichent sans étiquettes.  La sélection de ces cases vierges sera tout simplement ignorée.\n\n")
  647.        (set #help_askchoice "Avec l'Installer à la version antérieur à 42.6 il est possible que des boutons radios s'affichent sans étiquettes.  La sélection de ces boutons correspondra alors à une sélection du prochain bouton valide.\n\n")
  648.       )
  649.     )
  650.     (set #unknown           "Inconnu")
  651.     (set #choice_english    "Anglais")
  652.     (set #choice_german     "Allemand")
  653.     (set #choice_french     "Français")
  654.     (set #choice_spanish    "Espagnol")
  655.     (set #choice_portuguese "Portuguais")
  656.     (set #choice_danish     "Danois")
  657.     (set #choice_italian    "Italien")
  658.     (set #choice_dutch      "Hollandais")
  659.     (set #choice_norwegian  "Norvégien")
  660.     (set #choice_swedish    "Suédois")
  661.     (set #choice_polish     "Polonais")
  662.     (set #choice_finnish    "Finlandais")
  663.     (set #choice_hungarian  "Hongrois")
  664.     (set #choice_turkish    "Turc")
  665.     (set #choice_greek      "Grec")
  666.     (set #choice_latin      "Latin")
  667.     (set #choice_esperanto  "Espéranto")
  668.     (set #choice_russian    "Russe") ; LANGUAGE
  669.  
  670.     (set #choice_catalogs   "Catalogues")
  671.     (set #choice_docs       "Documentation")
  672.     (set #choice_developer  "Outils de développement")
  673.     (set #choice_install    "Installer")
  674.     (set #choice_uninstall  "Désinstaller")
  675.     (set #prompt_askcpufpu         (cat "Sélectionnez la configuration de processeur pour lequel vous souhaitez installer " @app-name ".mcc"))
  676.     (set #prompt_info              (cat "\nBienvenue à la classe MUI " @app-name "\n" #copyright "\n\n"))
  677.     (set #prompt_install_uninstall (cat #prompt_info "Souhaite-vous installer ou désinstaller cette classe?"))
  678.     (set #abort_nocpu ( cat "Désolé, ce script est incapable d'installer " @app-name ".mcc, parce que votre choix de configuration de processeur n'y est pas supporté.\n"))
  679.     (set #abort_nomui (cat "La classe MUI " @app-name " ne peut être utilisée qu'avec Magic User Interface (MUI).  En dehors ce système, cette classe demeure inutilisable!\n\n"
  680.                            "Le répertoire " @default-dest " est introuvable, veuillez installer MUI avant de tenter d'installer " @app-name ".mcc!\n"
  681.                       )
  682.     )
  683.     (set #abort_oldmui (cat "MUI %s est le minimum requis afin d'installer " @app-name ".mcc.\n\n"
  684.                             "Pour l'instant, seul MUI %s semble installé sur votre système.\n"
  685.                        )
  686.     )
  687.     (set #welcome_install (cat "Bienvenue à l'utilitaire d'installation de classe MUI.\n"
  688.                                "Veuillez indiquer le type d'installation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
  689.                           )
  690.     )
  691.     (set #welcome_uninstall (cat "Bienvenue à l'utilitaire de désinstallation de classe MUI.\n"
  692.                                  "Veuillez indiquer le type de désinstallation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
  693.                             )
  694.     )
  695.     (set #prompt_uninstall_parts (cat "Quelles sections souhaitez-vous désinstaller?\n"
  696.                                       "Notez que les catalogues relatifs à " @app-name ".mcp seront également désinstallés.\n"
  697.                                  )
  698.     )
  699.     (set #prompt_uninstall_all (cat "Désirez-vous désinstaller tous les fichiers relatifs à " @app-name ".mcc?"))
  700.     (set #help_uninstall_all "Si vous ne désirez pas tout désinstaller, il vous sera alors demander de préciser quelles sections vous souhaitez enlever.")
  701.     (set #prompt_uninstall_plangs "Pour quels langages de programmation souhaitez-vous désinstaller les documents d'assistance technique?")
  702.     (set #prompt_uninstall_mcp_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcp?"))
  703.     (set #prompt_uninstall_mcc_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcc?"))
  704.     (set #prompt_uninstall_agdocs "Pour quelles langues souhaitez-vous désinstaller la documentation de format AmigaGuide®?")
  705.     (set #prompt_uninstall_docs "Quelles types de document souhaitez-vous désinstaller?")
  706.     (set #abort_oldversion (cat "La version %ld.%ld de " @app-name ".mcc semble être déjà installée.\n\n"
  707.                                 "Si vous souhaitez réinstaller l'ancienne version %ld.%ld, veuillez désinstaller d'abord la nouvelle version."
  708.                            )
  709.     )
  710.     (set #prompt_update (cat "Quelles sections de " @app-name ".mcc souhaitez-vous ajouter à l'installation?"))
  711.     (set #prompt_install_mcc_catalogs (cat "Lesquels de ces catalogues destinés à " @app-name ".mcc souhaitez-vous installer?"))
  712.     (set #prompt_install_mcp_catalogs (cat "Lesquels de ces catalogues destinés à " @app-name ".mcp souhaitez-vous installer?"))
  713.     (set #prompt_install_docs "Quels types de document souhaitez-vous installer?")
  714.     (set #prompt_install_agdocs "Pour quelles langues souhaitez-vous installer la documentation de format AmigaGuide®?")
  715.     (set #prompt_install_demo "Voulez-vous installer le programme de démonstration?")
  716.     (set #help_install_demo (cat "Ce programme de démonstration est un petit logiciel démontrant l'utilisation de la nouvelle classe MUI " @app-name "."))
  717.     (set #prompt_install_plangs "Pour quels langages de programmation souhaitez-vous installer les documents d'assistance technique?")
  718.     (set #prompt_copy "Souhaitez-vous copier le(s) fichier(s) suivant(s)?")
  719.     (set #prompt_makedir "Puisque le tiroir suivant n'a pas été trouvé, il doit donc être créé:")
  720.  
  721.     (set #prompt_uninstall_asciidocs "Pour quelles langues souhaitez-vous désinstaller la documentation de format ASCII?")
  722.     (set #prompt_install_asciidocs "Pour quelles langues souhaitez-vous installer la documentation de format ASCII?")
  723.     (set #exit_uninstall_finished (cat "Désinstallation complétée !\n« "
  724.                                        @app-name
  725.                                        " » est retirée du répertoire (ou partition) « "
  726.                                        @default-dest
  727.                                        " »."
  728.                                   )
  729.     )
  730.    )
  731.    ( ; deutsch
  732.     (if (= @installer-version 0)
  733.       (
  734.        (set #help_askoptions "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Checkbox-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe wird ignoriert.\n\n")
  735.        (set #help_askchoice "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Radio-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe entspricht der nächst kleineren Auswahl.\n\n")
  736.       )
  737.     )
  738.     (set #unknown        "unbekannt")
  739.     (set #choice_english    "Englisch")
  740.     (set #choice_german     "Deutsch")
  741.     (set #choice_french     "Französisch")
  742.     (set #choice_spanish    "Spanisch")
  743.     (set #choice_portuguese "Portugiesisch")
  744.     (set #choice_danish     "Dänisch")
  745.     (set #choice_italian    "Italienisch")
  746.     (set #choice_dutch        "Niederländisch")
  747.     (set #choice_norwegian  "Norwegisch")
  748.     (set #choice_swedish    "Schwedisch")
  749.     (set #choice_polish     "Polnisch")
  750.     (set #choice_finnish    "Finnisch")
  751.     (set #choice_hungarian  "Ungarisch")
  752.     (set #choice_turkish    "Türkisch")
  753.     (set #choice_greek      "Griechisch")
  754.     (set #choice_latin      "Latein")
  755.     (set #choice_esperanto  "Esperanto")
  756.     (set #choice_russian    "Russisch") ; LANGUAGE
  757.  
  758.     (set #choice_catalogs   "Kataloge")
  759.     (set #choice_docs        "Dokumentation")
  760.     (set #choice_developer  "Entwickler-Material")
  761.     (set #choice_install    "Installieren")
  762.     (set #choice_uninstall  "Deinstallieren")
  763.     (set #prompt_askcpufpu (cat "Bitte wählen Sie die CPU/FPU Konfiguration, für die " @app-name ".mcc installiert werden soll."))
  764.     (set #prompt_info (cat "\nWillkommen zur " @app-name " MUI-Klasse\n" #copyright "\n\n"))
  765.     (set #prompt_install_uninstall (cat #prompt_info "Wollen Sie die Klasse installieren oder deinstallieren?"))
  766.     (set #abort_nocpu (cat @app-name ".mcc kann leider nicht installiert werden, da Ihre CPU-Konfiguration nicht unterstützt wird.\n"))
  767.     (set #abort_nomui (cat "Die " @app-name " MUI-Klasse kann nur zusammen mit dem Magic User Interface (MUI) benutzt werden, ohne MUI ist die Klasse nutzlos!\n\n"
  768.                "Der Installer konnte " @default-dest " nicht finden, installieren Sie bitte erst MUI, bevor Sie versuchen " @app-name ".mcc zu installieren!\n"
  769.               )
  770.     )
  771.     (set #abort_oldmui (cat "Um " @app-name ".mcc zu installieren wird mindestens MUI %s benötigt.\n\n"
  772.                 "Der Installer konnte aber nur MUI %s finden.\n"
  773.                )
  774.     )
  775.     (set #welcome_install (cat "Willkommen zum MUI-Klassen Installations-Werkzeug.\n"
  776.                    "Bitte geben Sie an, wie die Installation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
  777.               )
  778.     )
  779.     (set #welcome_uninstall (cat "Willkommen zum MUI-Klassen deinstallations Werkzeug.\n"
  780.                  "Bitte geben Sie an, wie die Deinstallation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
  781.                 )
  782.     )
  783.     (set #prompt_uninstall_parts (cat "Welche Teile wollen Sie deinstallieren?\n"
  784.                       @app-name ".mcp deinstalliert auch die entsprechenden Kataloge.\n"
  785.                  )
  786.     )
  787.     (set #prompt_uninstall_all (cat "Wollen Sie alles was mit " @app-name ".mcc zu tun hat deinstallieren?"))
  788.     (set #help_uninstall_all "Wenn Sie nicht alles deinstallieren wollen, werden Sie gefragt welche Teile deinstalliert werden sollen.")
  789.     (set #prompt_uninstall_plangs "Unterstützung für welche Programmiersprache wollen Sie deinstallieren?")
  790.     (set #prompt_uninstall_mcp_catalogs (cat "Welche Katalog von " @app-name ".mcp wollen Sie deinstallieren?"))
  791.     (set #prompt_uninstall_mcc_catalogs (cat "Welche Katalog von " @app-name ".mcc wollen Sie deinstallieren?"))
  792.     (set #prompt_uninstall_agdocs "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation deinstallieren?")
  793.     (set #prompt_uninstall_docs "Welche Art von Dokumenten wollen Sie deinstallieren?")
  794.     (set #abort_oldversion (cat "Der Installer hat die bereits installierte Version %ld.%ld von " @app-name ".mcc gefunden.\n\n"
  795.                 "Wenn Sie die ältere Version %ld.%ld wieder installieren wollen, deinstallieren Sie die neuere Version bitte zuerst."
  796.                )
  797.     )
  798.     (set #prompt_update (cat "Welche Teile wollen Sie zur " @app-name ".mcc Installation hinzufügen?"))
  799.     (set #prompt_install_mcc_catalogs (cat "Welche Kataloge für " @app-name ".mcc wollen Sie installieren?"))
  800.     (set #prompt_install_mcp_catalogs (cat "Welche Kataloge für " @app-name ".mcp wollen Sie installieren?"))
  801.     (set #prompt_install_docs "Welche Art von Dokumenten wollen Sie installieren?")
  802.     (set #prompt_install_agdocs "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation installieren?")
  803.     (set #prompt_install_demo "Wollen Sie die mitgelieferte Demo installieren?")
  804.     (set #help_install_demo (cat "Die Demo ist ein kleines Programm, welches die Benutzung der " @app-name " Klasse zeigt."))
  805.     (set #prompt_install_plangs "Unterstützung für welche Programmiersprache wollen Sie installieren?")
  806.     (set #prompt_copy "Wollen Sie das/die folgenden Datei(en) kopieren?")
  807.     (set #prompt_makedir "Das folgende Verzeichnis wurde nicht gefunden, deshalb muß es erzeugt werden:")
  808.     (set #prompt_uninstall_asciidocs "Für welche Sprachen wollen Sie die ASCII Dokumentation deinstallieren?")
  809.     (set #prompt_install_asciidocs "Für welche Sprachen wollen Sie die ASCII Dokumentation installieren?")
  810.     (set #exit_uninstall_finished (cat "Deinstallation abgeschlossen!\n"
  811.                                        '"'
  812.                                        @app-name
  813.                                        '"'
  814.                                        " wurde aus Ihrer Schublade (oder Partition) "
  815.                                        '"'
  816.                                        @default-dest
  817.                                        '"'
  818.                                        " entfernt."
  819.                                   )
  820.     )
  821.    )
  822.    ( ; english
  823.     (if (= @installer-version 0)
  824.       (
  825.        (set #help_askoptions "With an Installer prior to version 42.6 it can happen that you see checkbox-buttons without labels. Selecting these buttons will be ignored.\n\n")
  826.        (set #help_askchoice "With an Installer prior to version 42.6 it can happen that you see radio-buttons without labels. Selecting these buttons will result in the next lower available selection.\n\n")
  827.       )
  828.     )
  829.     (set #unknown        "unknown")
  830.     (set #choice_english    "English")
  831.     (set #choice_german     "German")
  832.     (set #choice_french     "French")
  833.     (set #choice_spanish    "Spanish")
  834.     (set #choice_portuguese "Portuguese")
  835.     (set #choice_danish     "Danish")
  836.     (set #choice_italian    "Italian")
  837.     (set #choice_dutch        "Dutch")
  838.     (set #choice_norwegian  "Norwegian")
  839.     (set #choice_swedish    "Swedish")
  840.     (set #choice_polish     "Polish")
  841.     (set #choice_finnish    "Finnish")
  842.     (set #choice_hungarian  "Hungarian")
  843.     (set #choice_turkish    "Turkish")
  844.     (set #choice_greek      "Greek")
  845.     (set #choice_latin      "Latin")
  846.     (set #choice_esperanto  "Esperanto")
  847.     (set #choice_russian    "Russian") ; LANGUAGE
  848.  
  849.     (set #choice_catalogs   "Catalogs")
  850.     (set #choice_docs        "Documentation")
  851.     (set #choice_developer  "Developer material")
  852.     (set #choice_install    "Install")
  853.     (set #choice_uninstall  "Uninstall")
  854.     (set #prompt_askcpufpu       (cat "Please select the CPU/FPU configuration for which you want to install " @app-name ".mcc"))
  855.     (set #prompt_info           (cat "\nWelcome to the " @app-name " MUI custom class\n" #copyright "\n\n"))
  856.     (set #prompt_install_uninstall (cat #prompt_info "Do you want to install or uninstall the custom class?"))
  857.     (set #abort_nocpu ( cat "Sorry, the script is unable to install " @app-name ".mcc, because your CPU configuration is not supported.\n"))
  858.     (set #abort_nomui (cat "The " @app-name " MUI custom class can only be used with the Magic User Interface (MUI), without it the custom class is useless!\n\n"
  859.                "The installer has not found " @default-dest " to be assigned, so please install MUI before trying to install " @app-name ".mcc!\n"
  860.               )
  861.     )
  862.     (set #abort_oldmui (cat "To install " @app-name ".mcc you need MUI %s as a minimum.\n\n"
  863.                 "The installer has found that only MUI %s is installed.\n"
  864.                )
  865.     )
  866.     (set #welcome_install (cat "Welcome to the MUI custom class installation utility.\n"
  867.                    "Please indicate how the installation should proceed (based upon your knowledge of the Amiga computer)."
  868.               )
  869.     )
  870.     (set #welcome_uninstall (cat "Welcome to the MUI custom class uninstallation utility.\n"
  871.                  "Please indicate how the uninstallation should proceed (based upon your knowledge of the Amiga computer)."
  872.                 )
  873.     )
  874.     (set #prompt_uninstall_parts (cat "Which parts do you want to uninstall?\n"
  875.                       @app-name ".mcp will uninstall relating catalogs too.\n"
  876.                  )
  877.     )
  878.     (set #prompt_uninstall_all (cat "Do you want to uninstall all things related with " @app-name ".mcc?"))
  879.     (set #help_uninstall_all "If you do not want to uninstall all, you will be asked which parts you want to uninstall.")
  880.     (set #prompt_uninstall_plangs "Support for which programming languages do you want to uninstall?")
  881.     (set #prompt_uninstall_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to uninstall?"))
  882.     (set #prompt_uninstall_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to uninstall?"))
  883.     (set #prompt_uninstall_agdocs "For which languages do you want to uninstall the AmigaGuide® documentation?")
  884.     (set #prompt_uninstall_docs "Which type of documents do you want to uninstall?")
  885.     (set #abort_oldversion (cat "The Installer found that version %ld.%ld of " @app-name ".mcc is already installed.\n\n"
  886.                 "If you want to reinstall the older version %ld.%ld then please uninstall the newer version first."
  887.                )
  888.     )
  889.     (set #prompt_update (cat "Which parts of " @app-name ".mcc do you want to add to the installation?"))
  890.     (set #prompt_install_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to install?"))
  891.     (set #prompt_install_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to install?"))
  892.     (set #prompt_install_docs "Which type of documents do you want to install?")
  893.     (set #prompt_install_agdocs "For which languages do you want to install the AmigaGuide® documentation?")
  894.     (set #prompt_install_demo "Do you want to install the supplied demo?")
  895.     (set #help_install_demo (cat "The demo is a small program that demonstrates the usage of the " @app-name "custom class."))
  896.     (set #prompt_install_plangs "Support for which programming languages do you want to install?")
  897.     (set #prompt_copy "Do you want to copy the following file(s)?")
  898.     (set #prompt_makedir "The following directory was not found, so it must be created:")
  899.  
  900.     (set #prompt_uninstall_asciidocs "For which languages do you want to uninstall the ASCII documentation?")
  901.     (set #prompt_install_asciidocs "For which languages do you want to install the ASCII documentation?")
  902.     (set #exit_uninstall_finished (cat "Uninstallation complete!\n"
  903.                                        '"'
  904.                                        @app-name
  905.                                        '"'
  906.                                        " is removed from your "
  907.                                        '"'
  908.                                        @default-dest
  909.                                        '"'
  910.                                        " drawer (or partition)."
  911.                                   )
  912.     )
  913.    )
  914.  )
  915.  (if (> @installer-version 0)
  916.    (
  917.     (set #help_askoptions "")
  918.     (set #help_askchoice "")
  919.    )
  920.  )
  921.  
  922. ; --- BitToLanguage -----------------------------------------------------------
  923.  
  924.  (procedure P_BitToLanguage
  925.   ; Params:
  926.   ; #langmask
  927.   ;
  928.   ; Results:
  929.   ; #langmask #lang
  930.   ;
  931.   ; Used Vars:
  932.   ; #i #bitmask
  933.  
  934.   (set #i 0)
  935.   (set #bitmask %1111111111111111110) ; LANGUAGE
  936.   (while (AND (< #i 18) (NOT (IN #langmask #i))) ; LANGUAGE
  937.     (
  938.      (set #bitmask (BITOR (shiftleft #bitmask 1) %0000000000000000001)) ; LANGUAGE
  939.      (set #i (+ #i 1))
  940.     )
  941.   )
  942.   (set #langmask (BITAND #langmask #bitmask))
  943.   (set #lang (select #i "english" "deutsch" "français" "español" "português" "dansk" "italiano" "nederlands" "norsk" "svenska" "polski" "suomi" "magyar" "greek" "esperanto" "türkçe" "latina" "russian" "")) ; LANGUAGE
  944.  )
  945.  
  946. ; --- Check procedure ---------------------------------------------------------
  947.  
  948.  (procedure P_CheckExists
  949.    ; Param:
  950.    ; #dir
  951.    ;
  952.    ; Results:
  953.    ; #chk_mcc #chk_mcp #chk_demo #chk_catalogs #chk_agdocs #chk_proglang
  954.    ; #chk_autodoc #chk_c_h #chk_c_example #chk_asm_i #chk_asm_example #chk_e_e
  955.    ; #chk_e_example #chk_modula_def #chk_modula_mod #chk_modula_demo
  956.    ; #chk_oberon_mod #chk_oberon_example #existsmask #chk_mcc_catalogs
  957.    ; #chk_mcp_catalogs #chk_docs #chk_progdirs #chk_asciidocs
  958.    ;
  959.    ; Vars used:
  960.    ; #i #lang
  961.  
  962.    ; Custom Class
  963.    (set #chk_mcc (exists (cat #dir "Libs/MUI/" @app-name ".mcc") (noreq)))
  964.    (set #chk_mcp (exists (cat #dir "Libs/MUI/" @app-name ".mcp") (noreq)))
  965.  
  966.    ; Demo
  967.    (set #chk_demo (exists (cat #dir "Demos/" @app-name "-Demo") (noreq)))
  968.  
  969.    ; Catalogs + Documentation
  970.    (set #chk_mcc_catalogs %000000000000000000) ; LANGUAGE
  971.    (set #chk_mcp_catalogs %000000000000000000) ; LANGUAGE
  972.    (set #chk_asciidocs    %000000000000000000) ; LANGUAGE
  973.    (set #chk_agdocs       %000000000000000000) ; LANGUAGE
  974.    (set #langmask         %111111111111111111) ; LANGUAGE
  975.    (while (P_BitToLanguage)
  976.      (
  977.       ; Catalogs
  978.       (if (exists (cat #dir "locale/catalogs/" #lang "/" @app-name "_mcc.catalog") (noreq))
  979.     (
  980.      (set #chk_mcc_catalogs (BITOR #chk_mcc_catalogs %1000000000000000000)) ; LANGUAGE
  981.      (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  982.     )
  983.     (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  984.       )
  985.       (if (exists (cat #dir "locale/catalogs/" #lang "/" @app-name "_mcp.catalog") (noreq))
  986.     (
  987.      (set #chk_mcp_catalogs (BITOR #chk_mcp_catalogs %1000000000000000000)) ; LANGUAGE
  988.      (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  989.     )
  990.     (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  991.       )
  992.  
  993.       ; Docs/ASCII
  994.       (if (exists (cat #dir "Docs/" #lang "/" @app-name "_mcc.doc") (noreq))
  995.     (
  996.      (set #chk_asciidocs (BITOR #chk_asciidocs %1000000000000000000)) ; LANGUAGE
  997.      (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  998.     )
  999.     (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  1000.       )
  1001.  
  1002.       ; Docs/AmigaGuide
  1003.       (if (exists (cat #dir "Docs/" #lang "/" @app-name "_mcc.guide") (noreq))
  1004.     (
  1005.      (set #chk_agdocs (BITOR #chk_agdocs %1000000000000000000)) ; LANGUAGE
  1006.      (set #chk_agdocs (shiftright #chk_agdocs 1))
  1007.     )
  1008.     (set #chk_agdocs (shiftright #chk_agdocs 1))
  1009.       )
  1010.  
  1011.      )
  1012.    )
  1013.    (set #chk_catalogs (BITOR #chk_mcc_catalogs #chk_mcp_catalogs))
  1014.    (set #chk_docs (BITOR (if #chk_asciidocs %01 %00)
  1015.                          (if #chk_agdocs    %10 %00)
  1016.                   )
  1017.    )
  1018.  
  1019.    ; Developer
  1020.    (set #chk_proglang %000000)
  1021.    (set #chk_progdirs %000000)
  1022.    (set #chk_autodoc (exists (cat #dir "Developer/Autodocs/MCC_" @app-name ".doc") (noreq)))
  1023.    ; C
  1024.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (cat #dir "Developer/C") (noreq)) %000001 %000000)))
  1025.    (set #chk_c_h       (exists (cat #dir "Developer/C/Include/MUI/" @app-name "_mcc.h") (noreq)))
  1026.    (set #chk_c_example (exists (cat #dir "Developer/C/Examples/" @app-name "-Demo.c") (noreq)))
  1027.    (if #chk_c_h
  1028.      (set #chk_proglang (BITOR #chk_proglang %000001))
  1029.    )
  1030.    ; C++
  1031.  
  1032.    ; Assembler
  1033.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (cat #dir "Developer/Assembler") (noreq)) %000100 %000000)))
  1034.    (set #chk_asm_i     (exists (cat #dir "Developer/Assembler/Include/MUI/" @app-name "_mcc.i") (noreq)))
  1035.    (set #chk_asm_example (exists (cat #dir "Developer/Assembler/Examples/" @app-name "-Demo.s") (noreq)))
  1036.    (if #chk_asm_i
  1037.      (set #chk_proglang (BITOR #chk_proglang %000100))
  1038.    )
  1039.    ; Amiga-E
  1040.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (cat #dir "Developer/Amiga-E") (noreq)) %001000 %000000)))
  1041.    (set #chk_e_e       (exists (cat #dir "Developer/Amiga-E/Modules/MUI/" @app-name "_mcc.e") (noreq)))
  1042.    (set #chk_e_example (exists (cat #dir "Developer/Amiga-E/Examples/" @app-name "-Demo.e") (noreq)))
  1043.    (if #chk_e_e
  1044.      (set #chk_proglang (BITOR #chk_proglang %001000))
  1045.    )
  1046.    ; Modula-II
  1047.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (cat #dir "Developer/Modula") (noreq)) %010000 %000000)))
  1048.    (set #chk_modula_def  (exists (cat #dir "Developer/Modula/txt/MCC" @app-name ".def") (noreq)))
  1049.    (set #chk_modula_mod  (exists (cat #dir "Developer/Modula/txt/MCC" @app-name ".mod") (noreq)))
  1050.    (set #chk_modula_demo (exists (cat #dir "Developer/Modula/Demo/" @app-name "Demo.mod") (noreq)))
  1051.    (if (AND #chk_modula_def #chk_modula_mod)
  1052.      (set #chk_proglang (BITOR #chk_proglang %010000))
  1053.    )
  1054.    ; Oberon
  1055.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (cat #dir "Developer/Oberon") (noreq)) %100000 %000000)))
  1056.    (set #chk_oberon_mod     (exists (cat #dir "Developer/Oberon/txt/MCC" @app-name ".mod") (noreq)))
  1057.    (set #chk_oberon_example (exists (cat #dir "Developer/Oberon/Examples/" @app-name "Demo.mod") (noreq)))
  1058.    (if #chk_oberon_mod
  1059.      (set #chk_proglang (BITOR #chk_proglang %100000))
  1060.    )
  1061.    (set #existsmask (BITOR
  1062.               (if #chk_mcp %00001 %00000)
  1063.               (BITOR
  1064.             (if #chk_catalogs %00010 %00000)
  1065.             (BITOR
  1066.               (if #chk_agdocs %00100 %00000)
  1067.               (BITOR
  1068.                 (if #chk_demo %01000 %00000)
  1069.                 (if #chk_proglang %10000 %00000)
  1070.               )
  1071.             )
  1072.               )
  1073.             )
  1074.    )
  1075.  )
  1076.  
  1077. ; --- GetVersion procedure ----------------------------------------------------
  1078.  
  1079.  (procedure P_GetVersion
  1080.   ; Param:
  1081.   ; #file
  1082.   ;
  1083.   ; Results:
  1084.   ; #ver #rev
  1085.   ;
  1086.   ; Vars used:
  1087.   ; #vernum
  1088.  
  1089.   (set #vernum (getversion (cat #file)))
  1090.   (set #ver (/ #vernum 65536))
  1091.   (set #rev (- #vernum (* #ver 65536)))
  1092.  )
  1093.  
  1094. ; --- CompareVersions procedure -----------------------------------------------
  1095.  
  1096.  (procedure P_CompareVersions
  1097.   ; Param:
  1098.   ; #ver #rev #ver2 #rev2
  1099.   ;
  1100.   ; Results:
  1101.   ; #result
  1102.   ; -1 : #ver.#rev < #ver2.#rev2
  1103.   ;  0 : #ver.#rev = #ver2.#rev2
  1104.   ;  1 : #ver.#rev > #ver2.#rev2
  1105.   ;
  1106.   ; Used Vars:
  1107.  
  1108.   (if (< #ver #ver2)
  1109.     (set #result -1)
  1110.     (if (> #ver #ver2)
  1111.       (set #result 1)
  1112.       (if (< #rev #rev2)
  1113.     (set #result -1)
  1114.     (if (> #rev #rev2)
  1115.       (set #result 1)
  1116.       (set #result 0)
  1117.     )
  1118.       )
  1119.     )
  1120.   )
  1121.  )
  1122.  
  1123. ; --- GetOSVersion ------------------------------------------------------------
  1124.  
  1125.  (procedure P_GetOSVersion
  1126.   ; Param:
  1127.   ;
  1128.   ; Results:
  1129.   ; #os_ver #os_rev #os_str
  1130.   ;
  1131.   ; Used Vars:
  1132.   ; #file #ver #rev #vernum #i
  1133.  
  1134.   (set #file "libs:version.library")
  1135.   (P_GetVersion)
  1136.   (set #os_ver #ver)
  1137.   (set #os_rev #rev)
  1138.  
  1139.   (set #i 0)
  1140.   (while (<> #os_ver (select #i 33 34 36 37 38 39 40 43 #os_ver))
  1141.     (set #i (+ #i 1))
  1142.   )
  1143.   (set #os_str (select #i "1.2" "1.3" "2.0pre" "2.0" "2.1" "3.0" "3.1" "3.2" #unknown))
  1144.  )
  1145.  
  1146. ; --- GetCPU ------------------------------------------------------------------
  1147.  
  1148.  (procedure P_GetCPUFPU
  1149.   ; Param:
  1150.   ;
  1151.   ; Results:
  1152.   ; #cpu #cpu_str
  1153.   ; -1 = unknown; 0 = 68000; 1 = 68010; 2 = 68020; 3 = 68030; 4 = 68040;
  1154.   ;          5 = 68060
  1155.   ; #fpu #fpu_str
  1156.   ; -1 = unknown; 0 = NOFPU; 1 = 68881; 2 = 68882; 3 = FPU40
  1157.   ;
  1158.   ; Used Vars:
  1159.  
  1160.   (set #cpu_str (database "cpu"))
  1161.   (set #cpu 0)
  1162.   (while (<> #cpu_str (select #cpu "68000" "68010" "68020" "68030" "68040""68060" #cpu))
  1163.     (set #cpu (+ #cpu 1))
  1164.   )
  1165.   (if (= #cpu 6)
  1166.     (
  1167.      (set #cpu -1)
  1168.      (set #cpu_str #unknown)
  1169.     )
  1170.   )
  1171.  
  1172.   (if @installer-version
  1173.     (
  1174.      (set #fpu_str (database "fpu"))
  1175.      (set #fpu 0)
  1176.      (while (<> #fpu_str (select #fpu "NOFPU" "68881" "68882" "FPU40" #fpu_str))
  1177.        (set #fpu (+ #fpu 1))
  1178.      )
  1179.      (if (= #fpu 4)
  1180.        (
  1181.     (set #fpu -1)
  1182.     (set #fpu_str #unknown)
  1183.        )
  1184.      )
  1185.     )
  1186.     (
  1187.      (set #fpu -1)
  1188.      (set #fpu_str #unknown)
  1189.     )
  1190.   )
  1191.  )
  1192.  
  1193. ; --- GetMUIVersionStr --------------------------------------------------------
  1194.  
  1195.  (procedure P_GetMuiVersionStr
  1196.   ; Params:
  1197.   ; #ver #rev
  1198.   ;
  1199.   ; Results:
  1200.   ; #str
  1201.   ;
  1202.   ; Used Vars:
  1203.   ; #i
  1204.  
  1205.   (set #i 0)
  1206.   (while (<> #ver (select #i 7 8 9 10 11 12 13 14 15 #ver))
  1207.     (set #i (+ #i 1))
  1208.   )
  1209.   (set #str (select #i "2.0" "2.1" "2.2" "2.3" "3.0" "3.1" "3.2" "3.3" "3.4" #unknown))
  1210.  )
  1211.  
  1212. ; --- GetMUIVersion -----------------------------------------------------------
  1213.  
  1214.  (procedure P_GetMUIVersion
  1215.   ; Params:
  1216.   ;
  1217.   ; Results:
  1218.   ; #mui_ver #mui_rev #mui_str
  1219.   ;
  1220.   ; Used Vars:
  1221.   ; #file #ver #rev #vernum #i
  1222.  
  1223.   (if (exists "MUI:" (noreq))
  1224.     (
  1225.      (if @installer-version
  1226.        (set #file "MUI:libs/muimaster.library")
  1227.        (set #file "MUI:MUI")
  1228.      )
  1229.      (P_GetVersion)
  1230.      (set #mui_ver #ver)
  1231.      (set #mui_rev #rev)
  1232.      (P_GetMuiVersionStr)
  1233.      (set #mui_str #str)
  1234.     )
  1235.     (
  1236.      (set #mui_ver 0)
  1237.      (set #mui_rev 0)
  1238.      (set #mui_str "")
  1239.     )
  1240.   )
  1241.  )
  1242.  
  1243. ; --- CheckAvailableCPUs ------------------------------------------------------
  1244.  
  1245.  (procedure P_CheckAvailableCPUs
  1246.   ; Params:
  1247.   ; #dir @app-name
  1248.   ;
  1249.   ; Results:
  1250.   ; #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #mcc_cpu_counter #mcp_cpu_counter
  1251.   ;
  1252.   ; Used Vars:
  1253.   ; #i #file #bitmask #filetype #f
  1254.  
  1255.   (set #mcc_cpus %000000)
  1256.   (set #mcp_cpus %000000)
  1257.   (set #mcc_fpus %000000)
  1258.   (set #mcp_fpus %000000)
  1259.   (set #mcc_cpu_counter 0)
  1260.   (set #mcp_cpu_counter 0)
  1261.   (foreach #dir (cat @app-name "(%|0(0|1|2|3|4|6)0)(%|f).mc(c|p)")
  1262.     (
  1263.      (set #i 0)
  1264.      (set #file (substr @each-name (strlen @app-name)))
  1265.      (set #filetype (substr #file (- (strlen #file) 1) 1))
  1266.      (set #file (substr #file 0 (- (strlen #file) 1)))
  1267.      (set #f (patmatch "#?f.mc" #file))
  1268.      (if #f
  1269.        (set #file (cat (substr #file 0 (- (strlen #file) 4)) ".mc"))
  1270.      )
  1271.      (set #bitmask %000001)
  1272.      (while (NOT (patmatch (select #i "(%|000).mc" "010.mc" "020.mc" "030.mc" "040.mc" "060.mc") #file))
  1273.        (
  1274.     (set #bitmask (shiftleft #bitmask 1))
  1275.     (set #i (+ #i 1))
  1276.        )
  1277.      )
  1278.      (if #f
  1279.        (if (= #filetype "c")
  1280.      (
  1281.       (set #mcc_fpus (BITOR #mcc_fpus #bitmask))
  1282.       (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1283.      )
  1284.      (
  1285.       (set #mcp_fpus (BITOR #mcp_fpus #bitmask))
  1286.       (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1287.      )
  1288.        )
  1289.        (if (= #filetype "c")
  1290.      (
  1291.       (set #mcc_cpus (BITOR #mcc_cpus #bitmask))
  1292.       (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1293.      )
  1294.      (
  1295.       (set #mcp_cpus (BITOR #mcp_cpus #bitmask))
  1296.       (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1297.      )
  1298.        )
  1299.      )
  1300.     )
  1301.   )
  1302.  )
  1303.  
  1304. ; --- AskLanguages ------------------------------------------------------------
  1305.  
  1306.  (procedure P_AskLanguages
  1307.   ; Params:
  1308.   ; #prompt #langmask #defaultmask
  1309.   ;
  1310.   ; Results:
  1311.   ; #langmask
  1312.   ;
  1313.   ; Used Vars:
  1314.   ; #bitmask
  1315.  
  1316.   (set #langmask (BITAND #langmask %111111111111111111)) ; LANGUAGE
  1317.   (if #langmask
  1318.     (
  1319.      (set #bitmask (askoptions (prompt #prompt)
  1320.                    (help #help_askoptions @askoptions-help)
  1321.                    (default (BITAND #defaultmask #langmask))
  1322.                    (choices
  1323.                  (if (IN #langmask 0)
  1324.                    (cat #prop #choice_english)
  1325.                    ("")
  1326.                  )
  1327.                  (if (IN #langmask 1)
  1328.                    (cat #prop #choice_german)
  1329.                    ("")
  1330.                  )
  1331.                  (if (IN #langmask 2)
  1332.                    (cat #prop #choice_french)
  1333.                    ("")
  1334.                  )
  1335.                  (if (IN #langmask 3)
  1336.                    (cat #prop #choice_spanish)
  1337.                    ("")
  1338.                  )
  1339.                  (if (IN #langmask 4)
  1340.                    (cat #prop #choice_portuguese)
  1341.                    ("")
  1342.                  )
  1343.                  (if (IN #langmask 5)
  1344.                    (cat #prop #choice_danish)
  1345.                    ("")
  1346.                  )
  1347.                  (if (IN #langmask 6)
  1348.                    (cat #prop #choice_italian)
  1349.                    ("")
  1350.                  )
  1351.                  (if (IN #langmask 7)
  1352.                    (cat #prop #choice_dutch)
  1353.                    ("")
  1354.                  )
  1355.                  (if (IN #langmask 8)
  1356.                    (cat #prop #choice_norwegian)
  1357.                    ("")
  1358.                  )
  1359.                  (if (IN #langmask 9)
  1360.                    (cat #prop #choice_swedish)
  1361.                    ("")
  1362.                  )
  1363.                  (if (IN #langmask 10)
  1364.                    (cat #prop #choice_polish)
  1365.                    ("")
  1366.                  )
  1367.                  (if (IN #langmask 11)
  1368.                    (cat #prop #choice_finnish)
  1369.                    ("")
  1370.                  )
  1371.                  (if (IN #langmask 12)
  1372.                    (cat #prop #choice_hungarian)
  1373.                    ("")
  1374.                  )
  1375.                  (if (IN #langmask 13)
  1376.                    (cat #prop #choice_greek)
  1377.                    ("")
  1378.                  )
  1379.                  (if (IN #langmask 14)
  1380.                    (cat #prop #choice_esperanto)
  1381.                    ("")
  1382.                  )
  1383.                  (if (IN #langmask 15)
  1384.                    (cat #prop #choice_turkish)
  1385.                    ("")
  1386.                  )
  1387.                  (if (IN #langmask 16)
  1388.                    (cat #prop #choice_latin)
  1389.                    ("")
  1390.                  )
  1391.                  (if (IN #langmask 17)
  1392.                    (cat #prop #choice_russian)
  1393.                    ("")
  1394.                  )
  1395.                  ; LANGUAGE
  1396.                    )
  1397.            )
  1398.      )
  1399.      (set #langmask (BITAND #langmask #bitmask))
  1400.     )
  1401.   )
  1402.  )
  1403.  
  1404. ; --- AskDocFormat ------------------------------------------------------------
  1405.  
  1406.  (procedure P_AskDocFormats
  1407.   ; Params:
  1408.   ; #prompt #docmask #defaultmask
  1409.   ;
  1410.   ; Results:
  1411.   ; #docmask
  1412.   ;
  1413.   ; Used Vars:
  1414.   ; #bitmask
  1415.  
  1416.   (set #docmask (BITAND #docmask %11))
  1417.   (if #docmask
  1418.     (
  1419.      (set #bitmask (askoptions (prompt #prompt)
  1420.                    (help #help_askoptions @askoptions-help)
  1421.                    (default (BITAND #defaultmask #docmask))
  1422.                    (choices
  1423.                  (if (IN #docmask 0)
  1424.                    (cat #prop "ASCII")
  1425.                    ("")
  1426.                  )
  1427.                  (if (IN #docmask 1)
  1428.                    (cat #prop "AmigaGuide®")
  1429.                    ("")
  1430.                  )
  1431.                    )
  1432.            )
  1433.      )
  1434.      (set #docmask (BITAND #docmask #bitmask))
  1435.     )
  1436.   )
  1437.  )
  1438.  
  1439. ; --- AskProgLang -------------------------------------------------------------
  1440.  
  1441.  (procedure P_AskProgLangs
  1442.   ; Params:
  1443.   ; #prompt #plangmask #defaultmask
  1444.   ;
  1445.   ; Results:
  1446.   ; #plangmask
  1447.   ;
  1448.   ; Used Vars:
  1449.   ; #bitmask
  1450.  
  1451.   (set #plangmask (BITAND #plangmask %111101))
  1452.   (if #plangmask
  1453.     (
  1454.      (set #bitmask (askoptions (prompt #prompt)
  1455.                    (help #help_askoptions @askoptions-help)
  1456.                    (default (BITAND #defaultmask #plangmask))
  1457.                    (choices
  1458.                  (if (IN #plangmask 0)
  1459.                    (cat #prop "C")
  1460.                    ("")
  1461.                  )
  1462.                  (if (IN #plangmask 1)
  1463.                    (cat #prop "C++")
  1464.                    ("")
  1465.                  )
  1466.                  (if (IN #plangmask 2)
  1467.                    (cat #prop "Assembler")
  1468.                    ("")
  1469.                  )
  1470.                  (if (IN #plangmask 3)
  1471.                    (cat #prop "Amiga-E")
  1472.                    ("")
  1473.                  )
  1474.                  (if (IN #plangmask 4)
  1475.                    (cat #prop "Modula-II")
  1476.                    ("")
  1477.                  )
  1478.                  (if (IN #plangmask 5)
  1479.                    (cat #prop "Oberon")
  1480.                    ("")
  1481.                  )
  1482.                    )
  1483.            )
  1484.      )
  1485.      (set #plangmask (BITAND #plangmask #bitmask))
  1486.     )
  1487.   )
  1488.  )
  1489.  
  1490. ; --- AskCPUFPU ---------------------------------------------------------------
  1491.  
  1492.  (procedure P_AskCPUFPU
  1493.   ; Params:
  1494.   ;
  1495.   ; Results:
  1496.   ; #cpu #cpu_str #mcc_cpu_file_extension #mcp_cpu_file_extension
  1497.   ;
  1498.   ; Used Vars:
  1499.   ; #i #file #bitmask #filetype #f #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #dir
  1500.   ; #defaultcpu #mcc_cpu_counter #mcp_cpu_counter #fpu #fpu_str #cpu2
  1501.  
  1502.   (set #dir "libs/mui")
  1503.   (P_CheckAvailableCPUs)
  1504.   (P_GetCPUFPU)
  1505.   (set #defaultcpu -1)
  1506.   (while (AND (>= #cpu 0) (= #defaultcpu -1))
  1507.     (
  1508.      (if (AND #fpu (IN #mcc_fpus #cpu))
  1509.        (set #defaultcpu (select #cpu -1 -1 3 5 7 -1))
  1510.        (if (IN #mcc_cpus #cpu)
  1511.      (set #defaultcpu (select #cpu 0 1 2 4 6 8))
  1512.        )
  1513.      )
  1514.      (set #cpu (- #cpu 1))
  1515.     )
  1516.   )
  1517.   (if (= #defaultcpu -1)
  1518.     (abort #abort_nocpu)
  1519.   )
  1520.  
  1521.   (if (AND (> #mcc_cpu_counter 1) (= @user-level 2))
  1522.     (
  1523.      (set #cpu (askchoice (prompt #prompt_askcpufpu)
  1524.               (help #help_askchoice @askchoice-help)
  1525.               (default #defaultcpu)
  1526.               (choices
  1527.                 (if (IN #mcc_cpus 0)
  1528.                   (cat #prop "68000")
  1529.                   ("")
  1530.                 )
  1531.                 (if (IN #mcc_cpus 1)
  1532.                   (cat #prop "68010")
  1533.                   ("")
  1534.                 )
  1535.                 (if (IN #mcc_cpus 2)
  1536.                   (cat #prop "68020")
  1537.                   ("")
  1538.                 )
  1539.                 (if (IN #mcc_fpus 2)
  1540.                   (cat #prop "68020+fpu")
  1541.                   ("")
  1542.                 )
  1543.                 (if (IN #mcc_cpus 3)
  1544.                   (cat #prop "68030")
  1545.                   ("")
  1546.                 )
  1547.                 (if (IN #mcc_fpus 3)
  1548.                   (cat #prop "68030+fpu")
  1549.                   ("")
  1550.                 )
  1551.                 (if (IN #mcc_cpus 4)
  1552.                   (cat #prop "68040")
  1553.                   ("")
  1554.                 )
  1555.                 (if (IN #mcc_fpus 4)
  1556.                   (cat #prop "68040+fpu")
  1557.                   ("")
  1558.                 )
  1559.                 (if (IN #mcc_cpus 5)
  1560.                   (cat #prop "68060")
  1561.                   ("")
  1562.                 )
  1563.               )
  1564.            )
  1565.      )
  1566.     )
  1567.     (set #cpu #defaultcpu)
  1568.   )
  1569.   ; select lower cpu if not available
  1570.   (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  1571.   (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  1572.   (while (NOT (OR (AND #fpu2 (AND #fpu (IN #mcc_fpus #cpu2))) (AND (NOT #fpu2) (IN #mcc_cpus #cpu2))))
  1573.     (
  1574.      (set #cpu (- #cpu 1))
  1575.      (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  1576.      (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  1577.     )
  1578.   )
  1579.  
  1580.   (set #cpu_str (select #cpu "68000" "68010" "68020" "68020+fpu" "68030" "68030+fpu" "68040" "68040+fpu" "68060"))
  1581.   (set #mcc_cpu_file_extension (select #cpu (if (exists (cat #dir "/" @app-name "000.mcc") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  1582.   (set #cpu #cpu2)
  1583.  
  1584.   ; set same or next lower cpu for .mcp
  1585.   (set #defaultcpu -1)
  1586.   (while (AND (>= #cpu2 0) (= #defaultcpu -1))
  1587.     (
  1588.      (if (AND #fpu (IN #mcp_fpus #cpu2))
  1589.        (set #defaultcpu (select #cpu2 -1 -1 3 5 7 -1))
  1590.        (if (IN #mcp_cpus #cpu2)
  1591.      (set #defaultcpu (select #cpu2 0 1 2 4 6 8))
  1592.        )
  1593.      )
  1594.      (set #cpu2 (- #cpu2 1))
  1595.     )
  1596.   )
  1597.   (if (= #defaultcpu -1)
  1598.     (set #mcp_cpu_file_extension "")
  1599.     (set #mcp_cpu_file_extension (select #defaultcpu (if (exists (cat #dir "/" @app-name "000.mcp") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  1600.   )
  1601.  )
  1602.  
  1603. ; --- AskParts ----------------------------------------------------------------
  1604.  
  1605.  (procedure P_AskParts
  1606.   ; Params:
  1607.   ; #prompt #defaultmask #existsmask
  1608.   ;
  1609.   ; Results:
  1610.   ; #parts
  1611.   ;
  1612.   ; Used Vars:
  1613.  
  1614.   (set #existsmask (if (= @user-level 2)
  1615.                #existsmask
  1616.                (BITAND #existsmask %01111)
  1617.            )
  1618.   )
  1619.   (if #existsmask
  1620.     (
  1621.      (set #parts (askoptions (prompt #prompt)
  1622.                  (help #help_askoptions @askoptions-help)
  1623.                  (default (BITAND #defaultmask #existsmask))
  1624.                  (choices
  1625.                 (if (IN #existsmask 0)
  1626.                   (cat @app-name ".mcp")
  1627.                   ("")
  1628.                 )
  1629.                 (if (IN #existsmask 1)
  1630.                   (cat #prop #choice_catalogs)
  1631.                   ("")
  1632.                 )
  1633.                 (if (IN #existsmask 2)
  1634.                   (cat #prop #choice_docs)
  1635.                   ("")
  1636.                 )
  1637.                 (if (IN #existsmask 3)
  1638.                   (cat #prop @app-name "-Demo")
  1639.                   ("")
  1640.                 )
  1641.                 (if (IN #existsmask 4)
  1642.                   (cat #prop #choice_developer)
  1643.                   ("")
  1644.                 )
  1645.                  )
  1646.          )
  1647.      )
  1648.      (set #parts (BITAND #parts #existsmask))
  1649.     )
  1650.     (set #parts 0)
  1651.   )
  1652.  )
  1653.  
  1654. ; --- DelEmptyDir -------------------------------------------------------------
  1655.  
  1656.  
  1657.  (procedure P_DelEmptyDir
  1658.   ; Params:
  1659.   ; #dir
  1660.   ;
  1661.   ; Results:
  1662.   ;
  1663.   ; Used Vars:
  1664.   ; #i
  1665.  
  1666.   (set #i 0)
  1667.   (if (exists #dir (noreq))
  1668.     (
  1669.      (foreach #dir "#?"
  1670.        (set #i (+ #i 1))
  1671.      )
  1672.      (if (NOT #i)
  1673.        (
  1674.     (delete #dir (optional "force"))
  1675.     (delete (cat #dir ".info") (optional "force"))
  1676.        )
  1677.      )
  1678.     )
  1679.   )
  1680.  )
  1681.  
  1682. ; --- DeleteLanguages ---------------------------------------------------------
  1683.  
  1684.  (procedure P_DeleteLanguages
  1685.   ; Params:
  1686.   ; #dir #file #langmask
  1687.   ;
  1688.   ; Results:
  1689.   ;
  1690.   ; Used Vars:
  1691.   ; #i
  1692.  
  1693.   (while (P_BitToLanguage)
  1694.     (
  1695.      (delete (cat #dir "/" #lang "/" #file) (optional "force"))
  1696.      (delete (cat #dir "/" #lang "/" #file ".info") (optional "force"))
  1697.      (set #i 0)
  1698.      (foreach (cat #dir "/" #lang) "#?"
  1699.        (set #i (+ #i 1))
  1700.      )
  1701.      (if (NOT #i)
  1702.        (
  1703.     (delete (cat #dir "/" #lang) (optional "force"))
  1704.     (delete (cat #dir "/" #lang ".info") (optional "force"))
  1705.        )
  1706.      )
  1707.     )
  1708.   )
  1709.  )
  1710.  
  1711. ; --- MkDirInfo ---------------------------------------------------------------
  1712.  
  1713.  (procedure P_MkDirInfo
  1714.   ; Params:
  1715.   ; #dir #infos
  1716.   ;
  1717.   ; Results:
  1718.   ;
  1719.   ; Used Vars:
  1720.  
  1721.   (if (NOT (exists (cat @default-dest #dir) (noreq)))
  1722.     (if #infos
  1723.       (makedir (cat @default-dest #dir) (prompt #prompt_makedir "\n\n" (cat @default-dest #dir)) (help @makedir-help) (infos) (confirm "expert"))
  1724.       (makedir (cat @default-dest #dir) (prompt #prompt_makedir "\n\n" (cat @default-dest #dir)) (help @makedir-help) (confirm "expert"))
  1725.     )
  1726.   )
  1727.  )
  1728.  
  1729. ; --- CpFile ------------------------------------------------------------------
  1730.  
  1731.  (procedure P_CpFile
  1732.   ; Params:
  1733.   ; #dir #file #infos
  1734.   ;
  1735.   ; Results:
  1736.   ;
  1737.   ; Used Vars:
  1738.  
  1739.   (if #infos
  1740.     (copyfiles (prompt #prompt_copy)
  1741.            (help @copyfiles-help)
  1742.            (source (cat #dir "/" #file))
  1743.            (dest (cat @default-dest #dir))
  1744.            (files)
  1745.            (infos)
  1746.            (optional "nofail" "force")
  1747.            (confirm "expert")
  1748.     )
  1749.     (copyfiles (prompt #prompt_copy)
  1750.            (help @copyfiles-help)
  1751.            (source (cat #dir "/" #file))
  1752.            (dest (cat @default-dest #dir))
  1753.            (files)
  1754.            (optional "nofail" "force")
  1755.            (confirm "expert")
  1756.     )
  1757.   )
  1758.  )
  1759.  
  1760. ; -----------------------------------------------------------------------------
  1761.  
  1762.  ; Check MUI
  1763.  (P_GetMUIVersion)
  1764.  (if (= #mui_ver 0)
  1765.    (abort #abort_nomui)
  1766.  )
  1767.  (set #ver2 #min_mui_version)
  1768.  (set #rev2 0)
  1769.  (P_CompareVersions)
  1770.  (if (= #result -1)
  1771.    (
  1772.     (set #ver #min_mui_version)
  1773.     (set #rev #min_mui_revision)
  1774.     (P_GetMUIVersionStr)
  1775.     (abort (#abort_oldmui #str #mui_str))
  1776.    )
  1777.  )
  1778.  
  1779.  ; Check if there is an already installed version?
  1780.  (set #dir @default-dest)
  1781.  (P_CheckExists)
  1782.  (P_CustomExists)
  1783.  
  1784.  (select (if #chk_mcc
  1785.        (askchoice (prompt #prompt_install_uninstall)
  1786.               (help #help_askchoice @askchoice-help)
  1787.               (default 0)
  1788.               (choices
  1789.             (cat #prop #choice_install)
  1790.             #choice_uninstall
  1791.               )
  1792.        )
  1793.        (
  1794.         (message #prompt_info)
  1795.         0
  1796.        )
  1797.      )
  1798.    ( ; Install
  1799.     (welcome #welcome_install)
  1800.  
  1801.     (set #old_mcp #chk_mcp)
  1802.     (set #old_demo #chk_demo)
  1803.     (set #old_mcc_catalogs #chk_mcc_catalogs)
  1804.     (set #old_mcp_catalogs #chk_mcp_catalogs)
  1805.     (set #old_docs #chk_docs)
  1806.     (set #old_asciidocs #chk_asciidocs)
  1807.     (set #old_agdocs #chk_agdocs)
  1808.     (set #old_proglang #chk_proglang)
  1809.     (set #old_progdirs #chk_progdirs)
  1810.     (set #old_autodoc #chk_autodoc)
  1811.  
  1812.     (set #dir "")
  1813.     (P_CheckExists)
  1814.  
  1815.     ; Check old version
  1816.     (set #file (cat @default-dest "libs/mui/" @app-name ".mcc"))
  1817.     (P_GetVersion)
  1818.     (set #ver2 #ver)
  1819.     (set #rev2 #rev)
  1820.  
  1821.     ; Check archiv
  1822.     (set #file (cat "libs/mui/" @app-name ".mcc"))
  1823.     (P_GetVersion)
  1824.  
  1825.     ; Update existing version or install newer one
  1826.     (P_CompareVersions)
  1827.     (if (= #result -1)
  1828.       (abort (#abort_oldversion #ver #rev #ver2 #rev2))
  1829.       (if (= #result 0)
  1830.     (
  1831.      (set #update 1)
  1832.      (set #prompt #prompt_update)
  1833.      (set #existsmask (BITAND #existsmask (BITOR (if (AND (NOT #old_demo) #chk_demo) %11110 %10110)
  1834.                              (if (AND (NOT #old_mcp) #chk_mcp ) %10111 %10110)
  1835.                           )
  1836.               )
  1837.      )
  1838.      (set #defaultmask %00000)
  1839.      (P_AskParts)
  1840.     )
  1841.     (
  1842.      (set #update 0)
  1843.     )
  1844.       )
  1845.     )
  1846.  
  1847.     ; (P_AskCPUFPU)
  1848.     (if (NOT #update)
  1849.       (P_AskCPUFPU)
  1850.     )
  1851.  
  1852.     ; mcc (P_AskLanguages)
  1853.     (if (OR (NOT #update) (AND #update (IN #parts 1)))
  1854.       (
  1855.        (set #prompt #prompt_install_mcc_catalogs)
  1856.        (set #langmask (BITAND #chk_mcc_catalogs (BITNOT #old_mcc_catalogs)))
  1857.        (set #defaultmask (BITAND #language_default (BITNOT #old_mcc_catalogs)))
  1858.        (P_AskLanguages)
  1859.        (set #install_mcc_catalogs #langmask)
  1860.       )
  1861.       (set #install_mcc_catalogs 0)
  1862.     )
  1863.  
  1864.     ; mcp (P_AskLanguages)
  1865.     (if (OR (NOT #update) (AND #update (OR (IN #parts 1) (IN #parts 0))))
  1866.       (
  1867.        (set #prompt #prompt_install_mcp_catalogs)
  1868.        (set #langmask (BITAND #chk_mcp_catalogs (BITNOT #old_mcp_catalogs)))
  1869.        (set #defaultmask (BITAND #language_default (BITNOT #old_mcp_catalogs)))
  1870.        (P_AskLanguages)
  1871.        (set #install_mcp_catalogs #langmask)
  1872.       )
  1873.       (set #install_mcp_catalogs 0)
  1874.     )
  1875.  
  1876.     ; (P_AskDocFormats)
  1877.     (if (OR (NOT #update) (AND #update (IN #parts 2)))
  1878.       (
  1879.        (set #prompt #prompt_install_docs)
  1880.        (set #docmask (BITAND #chk_docs (BITNOT #old_docs)))
  1881.        (set #defaultmask (BITAND %11 (BITNOT #old_docs)))
  1882.        (P_AskDocFormats)
  1883.        (set #install_docs #docmask)
  1884.       )
  1885.       (set #install_docs 0)
  1886.     )
  1887.  
  1888.     ; asciidocs (P_AskLanguages)
  1889.     (if (IN #install_docs 0)
  1890.       (
  1891.        (set #prompt #prompt_install_asciidocs)
  1892.        (set #langmask (BITAND #chk_asciidocs (BITNOT #old_asciidocs)))
  1893.        (set #defaultmask (BITAND #language_default (BITNOT #old_asciidocs)))
  1894.        (P_AskLanguages)
  1895.        (set #install_asciidocs #langmask)
  1896.       )
  1897.       (set #install_asciidocs 0)
  1898.     )
  1899.  
  1900.     ; agdocs (P_AskLanguages)
  1901.     (if (IN #install_docs 1)
  1902.       (
  1903.        (set #prompt #prompt_install_agdocs)
  1904.        (set #langmask (BITAND #chk_agdocs (BITNOT #old_agdocs)))
  1905.        (set #defaultmask (BITAND #language_default (BITNOT #old_agdocs)))
  1906.        (P_AskLanguages)
  1907.        (set #install_agdocs #langmask)
  1908.       )
  1909.       (set #install_agdocs 0)
  1910.     )
  1911.  
  1912.     ; demo
  1913.     (if (AND #chk_demo (NOT #update))
  1914.       (set #install_demo (askbool (prompt #prompt_install_demo)
  1915.                   (help #help_install_demo)
  1916.                   (default 0)
  1917.              )
  1918.       )
  1919.       (if (AND #update (IN #parts 3))
  1920.     (set #install_demo 1)
  1921.     (set #install_demo 0)
  1922.       )
  1923.     )
  1924.  
  1925.     ; (P_AskProgLangs)
  1926.     (if (OR (AND (NOT #update) (= @user-level 2)) (AND #update (IN #parts 4)))
  1927.       (
  1928.        (set #prompt #prompt_install_plangs)
  1929.        (set #plangmask (BITAND #chk_proglang (BITNOT #old_proglang)))
  1930.        (set #defaultmask #old_progdirs)
  1931.        (P_AskProgLangs)
  1932.        (set #install_proglang #plangmask)
  1933.       )
  1934.       (set #install_proglang 0)
  1935.     )
  1936.  
  1937.     (complete 0)
  1938.  
  1939.     ; mcc
  1940.     (if (NOT #update)
  1941.       (copylib (prompt #prompt_copy "\n\n" @app-name #mcc_cpu_file_extension ".mcc")
  1942.            (help @copylib-help)
  1943.            (confirm "expert")
  1944.            (source (cat "libs/mui/" @app-name #mcc_cpu_file_extension ".mcc"))
  1945.            (dest (cat @default-dest "libs/mui"))
  1946.            (newname (cat @app-name ".mcc"))
  1947.            (optional "oknodelete" "force")
  1948.       )
  1949.     )
  1950.  
  1951.     (complete 7)
  1952.  
  1953.     ; mcp
  1954.     (if (AND (> #mcp_cpu_counter 0) (OR (NOT #update) (AND #update (IN #parts 0))))
  1955.       (copylib (prompt #prompt_copy "\n\n" @app-name #mcp_cpu_file_extension ".mcp")
  1956.            (help @copylib-help)
  1957.            (confirm "expert")
  1958.            (source (cat "libs/mui/" @app-name #mcp_cpu_file_extension ".mcp"))
  1959.            (dest (cat @default-dest "libs/mui"))
  1960.            (newname (cat @app-name ".mcp"))
  1961.            (optional "oknodelete" "force")
  1962.       )
  1963.     )
  1964.  
  1965.     (complete 14)
  1966.  
  1967.     ; mcc catalogs
  1968.     (if #install_mcc_catalogs
  1969.       (
  1970.        (set #infos 1)
  1971.        (set #dir "Locale")
  1972.        (P_MkDirInfo)
  1973.        (set #dir "Locale/Catalogs")
  1974.        (P_MkDirInfo)
  1975.        (set #infos 0)
  1976.        (set #langmask #install_mcc_catalogs)
  1977.        (while #langmask
  1978.      (
  1979.       (P_BitToLanguage)
  1980.       (set #dir (cat "Locale/Catalogs/" #lang))
  1981.       (P_MkDirInfo)
  1982.       (set #file (cat @app-name "_mcc.catalog"))
  1983.       (P_CpFile)
  1984.      )
  1985.        )
  1986.       )
  1987.     )
  1988.  
  1989.     (complete 21)
  1990.  
  1991.     ; mcp catalogs
  1992.     (if #install_mcp_catalogs
  1993.       (
  1994.        (set #infos 1)
  1995.        (set #dir "Locale")
  1996.        (P_MkDirInfo)
  1997.        (set #dir "Locale/Catalogs")
  1998.        (P_MkDirInfo)
  1999.        (set #infos 0)
  2000.        (set #langmask #install_mcp_catalogs)
  2001.        (while #langmask
  2002.      (
  2003.       (P_BitToLanguage)
  2004.       (set #dir (cat "Locale/Catalogs/" #lang))
  2005.       (P_MkDirInfo)
  2006.       (set #file (cat @app-name "_mcp.catalog"))
  2007.       (P_CpFile)
  2008.      )
  2009.        )
  2010.       )
  2011.     )
  2012.  
  2013.     (complete 29)
  2014.  
  2015.     ; asciidocs
  2016.     (if #install_asciidocs
  2017.       (
  2018.        (set #infos 1)
  2019.        (set #dir "Docs")
  2020.        (P_MkDirInfo)
  2021.        (set #langmask #install_asciidocs)
  2022.        (while #langmask
  2023.      (
  2024.       (P_BitToLanguage)
  2025.       (set #dir (cat "Docs/" #lang))
  2026.       (P_MkDirInfo)
  2027.       (set #file (cat @app-name "_mcc.doc"))
  2028.       (P_CpFile)
  2029.      )
  2030.        )
  2031.       )
  2032.     )
  2033.  
  2034.     ; agdocs
  2035.     (if #install_agdocs
  2036.       (
  2037.        (P_GetOSVersion)
  2038.        (set #wrapguide (exists "C/WarpGuide"))
  2039.        (set #infos 1)
  2040.        (set #dir "Docs")
  2041.        (P_MkDirInfo)
  2042.        (set #langmask #install_agdocs)
  2043.        (while #langmask
  2044.      (
  2045.       (P_BitToLanguage)
  2046.       (set #dir (cat "Docs/" #lang))
  2047.       (P_MkDirInfo)
  2048.       (set #file (cat @app-name "_mcc.guide"))
  2049.           (if (AND #wrapguide (< #os_ver 39))
  2050.             (run ("stack 50000\nC/WrapGuide %s 65" (cat #dir "/" #file)))
  2051.           )
  2052.       (P_CpFile)
  2053.      )
  2054.        )
  2055.       )
  2056.     )
  2057.  
  2058.     (complete 36)
  2059.  
  2060.     ; demo
  2061.     (if #install_demo
  2062.       (
  2063.        (set #infos 1)
  2064.        (set #dir "Demos")
  2065.        (P_MkDirInfo)
  2066.        (set #file (cat @app-name "-Demo"))
  2067.        (P_CpFile)
  2068.       )
  2069.     )
  2070.  
  2071.     (complete 43)
  2072.  
  2073.     (if #install_proglang
  2074.       (
  2075.        (set #infos 1)
  2076.        (set #dir "Developer")
  2077.        (P_MkDirInfo)
  2078.  
  2079.        ; Autodoc
  2080.        (if (AND #chk_autodoc (OR (NOT #update) (AND #update (NOT #old_autodoc))))
  2081.      (
  2082.       (set #dir "Developer/Autodocs")
  2083.       (P_MkDirInfo)
  2084.       (set #infos 0)
  2085.       (set #file (cat "MCC_" @app-name ".doc"))
  2086.       (P_CpFile)
  2087.      )
  2088.        )
  2089.  
  2090.        (complete 50)
  2091.  
  2092.        ; C
  2093.        (if (IN #install_proglang 0)
  2094.      (
  2095.       (set #infos 1)
  2096.       (set #dir "Developer/C")
  2097.       (P_MkDirInfo)
  2098.       (set #infos 0)
  2099.       (set #dir "Developer/C/Include")
  2100.       (P_MkDirInfo)
  2101.       (set #dir "Developer/C/Include/MUI")
  2102.       (P_MkDirInfo)
  2103.       (set #file (cat @app-name "_mcc.h"))
  2104.       (P_CpFile)
  2105.       (if #chk_c_example
  2106.         (
  2107.          (set #dir "Developer/C/Examples")
  2108.          (P_MkDirInfo)
  2109.          (set #file (cat @app-name "-Demo.c"))
  2110.          (P_CpFile)
  2111.         )
  2112.       )
  2113.      )
  2114.        )
  2115.  
  2116.        (complete 57)
  2117.  
  2118.        ; C++
  2119.  
  2120.        (complete 64)
  2121.  
  2122.        ; Asm
  2123.        (if (IN #install_proglang 2)
  2124.      (
  2125.       (set #infos 1)
  2126.       (set #dir "Developer/Assembler")
  2127.       (P_MkDirInfo)
  2128.       (set #infos 0)
  2129.       (set #dir "Developer/Assembler/Include")
  2130.       (P_MkDirInfo)
  2131.       (set #dir "Developer/Assembler/Include/MUI")
  2132.       (P_MkDirInfo)
  2133.       (set #file (cat @app-name "_mcc.i"))
  2134.       (P_CpFile)
  2135.       (if #chk_asm_example
  2136.         (
  2137.          (set #dir "Developer/Assembler/Examples")
  2138.          (P_MkDirInfo)
  2139.          (set #file (cat @app-name "-Demo.s"))
  2140.          (P_CpFile)
  2141.         )
  2142.       )
  2143.      )
  2144.        )
  2145.  
  2146.        (complete 71)
  2147.  
  2148.        ; Amiga-E
  2149.        (if (IN #install_proglang 3)
  2150.      (
  2151.       (set #infos 1)
  2152.       (set #dir "Developer/Amiga-E")
  2153.       (P_MkDirInfo)
  2154.       (set #infos 0)
  2155.       (set #dir "Developer/Amiga-E/Modules")
  2156.       (P_MkDirInfo)
  2157.       (set #dir "Developer/Amiga-E/Modules/MUI")
  2158.       (P_MkDirInfo)
  2159.       (set #file (cat @app-name "_mcc.e"))
  2160.       (P_CpFile)
  2161.       (if #chk_e_example
  2162.         (
  2163.          (set #dir "Developer/Amiga-E/Examples")
  2164.          (P_MkDirInfo)
  2165.          (set #file (cat @app-name "-Demo.e"))
  2166.          (P_CpFile)
  2167.         )
  2168.       )
  2169.      )
  2170.        )
  2171.  
  2172.        (complete 79)
  2173.  
  2174.        ; Modula-II
  2175.        (if (IN #install_proglang 4)
  2176.      (
  2177.       (set #infos 1)
  2178.       (set #dir "Developer/Modula")
  2179.       (P_MkDirInfo)
  2180.       (set #infos 0)
  2181.       (set #dir "Developer/Modula/txt")
  2182.       (P_MkDirInfo)
  2183.       (set #file (cat "MCC" @app-name ".def"))
  2184.       (P_CpFile)
  2185.       (set #file (cat "MCC" @app-name ".mod"))
  2186.       (P_CpFile)
  2187.       (if #chk_modula_demo
  2188.         (
  2189.          (set #dir "Developer/Modula/Demo")
  2190.          (P_MkDirInfo)
  2191.          (set #file (cat @app-name "Demo.mod"))
  2192.          (P_CpFile)
  2193.         )
  2194.       )
  2195.      )
  2196.        )
  2197.  
  2198.        (complete 86)
  2199.  
  2200.        ; Oberon
  2201.        (if (IN #install_proglang 5)
  2202.      (
  2203.       (set #infos 1)
  2204.       (set #dir "Developer/Oberon")
  2205.       (P_MkDirInfo)
  2206.       (set #infos 0)
  2207.       (set #dir "Developer/Oberon/txt")
  2208.       (P_MkDirInfo)
  2209.       (set #file (cat "MCC" @app-name ".mod"))
  2210.       (P_CpFile)
  2211.       (if #chk_oberon_example
  2212.         (
  2213.          (set #dir "Developer/Oberon/Examples")
  2214.          (P_MkDirInfo)
  2215.          (set #file (cat @app-name "Demo.mod"))
  2216.          (P_CpFile)
  2217.         )
  2218.       )
  2219.      )
  2220.        )
  2221.  
  2222.        (complete 93)
  2223.  
  2224.       )
  2225.     )
  2226.  
  2227.     (P_CustomInstall)
  2228.  
  2229.     (complete 100)
  2230.    )
  2231.  
  2232. ; -----------------------------------------------------------------------------
  2233.  
  2234.    ( ; Uninstall
  2235.     (welcome #welcome_uninstall)
  2236.     (set #all (askbool (prompt #prompt_uninstall_all)
  2237.                (help #help_uninstall_all)
  2238.                (default 1)
  2239.           )
  2240.     )
  2241.     (if (NOT #all)
  2242.       (
  2243.        (set #prompt #prompt_uninstall_parts)
  2244.        (set #defaultmask %00000)
  2245.        (P_AskParts)
  2246.        (if (IN #parts 1)
  2247.      (
  2248.       (set #prompt #prompt_uninstall_mcc_catalogs)
  2249.       (set #langmask #chk_mcc_catalogs)
  2250.       (set #defaultmask %000000000000000000) ; LANGUAGE
  2251.       (P_AskLanguages)
  2252.       (set #uninstall_mcc_catalogs #langmask)
  2253.       (if (NOT (IN #parts 0))
  2254.         (
  2255.          (set #prompt #prompt_uninstall_mcp_catalogs)
  2256.          (set #langmask #chk_mcp_catalogs)
  2257.          (set #defaultmask %000000000000000000) ; LANGUAGE
  2258.          (P_AskLanguages)
  2259.          (set #uninstall_mcp_catalogs #langmask)
  2260.         )
  2261.       )
  2262.      )
  2263.        )
  2264.        (if (IN #parts 2)
  2265.      (
  2266.       (set #prompt #prompt_uninstall_docs)
  2267.       (set #docmask #chk_docs)
  2268.       (set #defaultmask %00)
  2269.       (P_AskDocFormats)
  2270.       (set #uninstall_asciidocs 0)
  2271.       (set #uninstall_agdocs 0)
  2272.  
  2273.       (if (IN #docmask 0) ; ASCII
  2274.         (
  2275.          (set #promp #prompt_uninstall_asciidocs)
  2276.          (set #langmask #chk_asciidocs)
  2277.          (set #defaultmask %000000000000000000) ; LANGUAGE
  2278.          (P_AskLanguages)
  2279.          (set #uninstall_asciidocs #langmask)
  2280.         )
  2281.       )
  2282.       (if (IN #docmask 1) ; AmigGuide
  2283.         (
  2284.          (set #promp #prompt_uninstall_agdocs)
  2285.          (set #langmask #chk_agdocs)
  2286.          (set #defaultmask %000000000000000000) ; LANGUAGE
  2287.          (P_AskLanguages)
  2288.          (set #uninstall_agdocs #langmask)
  2289.         )
  2290.       )
  2291.  
  2292.      )
  2293.        )
  2294.        (if (IN #parts 4)
  2295.      (
  2296.       (set #prompt #prompt_uninstall_plangs)
  2297.       (set #plangmask #chk_proglang)
  2298.       (set #defaultmask %000000)
  2299.       (P_AskProgLangs)
  2300.       (set #uninstall_proglang #plangmask)
  2301.      )
  2302.        )
  2303.       )
  2304.     )
  2305.  
  2306.     (complete 0)
  2307.  
  2308.     ; mcc
  2309.     (if (AND #chk_mcc #all)
  2310.       (delete (cat @default-dest "libs/mui/" @app-name ".mcc") (optional "force"))
  2311.     )
  2312.  
  2313.     (complete 8)
  2314.  
  2315.     ; mcp -> related catalogs
  2316.     (if (OR #all (IN #parts 0))
  2317.       (
  2318.        (if #chk_mcp
  2319.      (delete (cat @default-dest "libs/mui/" @app-name ".mcp") (optional "force"))
  2320.        )
  2321.        (set #parts (BITOR #parts %00010))
  2322.        (set #uninstall_mcp_catalogs #chk_mcp_catalogs)
  2323.       )
  2324.     )
  2325.  
  2326.     (complete 15)
  2327.  
  2328.     ; Catalogs
  2329.     (if (AND #chk_catalogs (OR #all (IN #parts 1)))
  2330.       (
  2331.        (if #chk_mcc_catalogs
  2332.      (
  2333.       (set #dir (cat @default-dest "Locale/Catalogs"))
  2334.       (set #file (cat @app-name "_mcc.catalog"))
  2335.       (set #langmask (if #all #chk_mcc_catalogs #uninstall_mcc_catalogs))
  2336.       (P_DeleteLanguages)
  2337.      )
  2338.        )
  2339.        (if #chk_mcp_catalogs
  2340.      (
  2341.       (set #dir (cat @default-dest "Locale/Catalogs"))
  2342.       (set #file (cat @app-name "_mcp.catalog"))
  2343.       (set #langmask #uninstall_mcp_catalogs)
  2344.       (P_DeleteLanguages)
  2345.      )
  2346.        )
  2347.       )
  2348.     )
  2349.  
  2350.     (complete 23)
  2351.  
  2352.     ; Docs
  2353.     (if (OR #all (IN #parts 2))
  2354.       (
  2355.        ; ASCII
  2356.        (if #chk_asciidocs
  2357.      (
  2358.       (set #dir (cat @default-dest "Docs"))
  2359.       (set #file (cat @app-name "_mcc.doc"))
  2360.       (set #langmask (if #all #chk_asciidocs #uninstall_asciidocs))
  2361.       (P_DeleteLanguages)
  2362.      )
  2363.        )
  2364.  
  2365.        ; AmigaGuide
  2366.        (if #chk_agdocs
  2367.      (
  2368.       (set #dir (cat @default-dest "Docs"))
  2369.       (set #file (cat @app-name "_mcc.guide"))
  2370.       (set #langmask (if #all #chk_agdocs #uninstall_agdocs))
  2371.       (P_DeleteLanguages)
  2372.      )
  2373.        )
  2374.  
  2375.       )
  2376.     )
  2377.  
  2378.     (complete 31)
  2379.  
  2380.     ; Demo
  2381.     (if (AND #chk_demo (OR #all (IN #parts 3)))
  2382.       (
  2383.        (delete (cat @default-dest "Demos/" @app-name "-Demo") (optional "force"))
  2384.        (delete (cat @default-dest "Demos/" @app-name "-Demo.info") (optional "force"))
  2385.        (set #dir (cat @default-dest "Demos"))
  2386.        (P_DelEmptyDir)
  2387.       )
  2388.     )
  2389.  
  2390.     (complete 38)
  2391.  
  2392.     ; Developer
  2393.     (if (AND #chk_proglang (OR #all (IN #parts 4)))
  2394.       (
  2395.  
  2396.        ; C
  2397.        (if (OR #all (IN #uninstall_proglang 0))
  2398.      (
  2399.       (if #chk_c_h
  2400.         (
  2401.          (delete (cat @default-dest "Developer/C/Include/MUI/" @app-name "_mcc.h") (optional "force"))
  2402.          (set #dir (cat @default-dest "Developer/C/Include/MUI"))
  2403.          (P_DelEmptyDir)
  2404.          (set #dir (cat @default-dest "Developer/C/Include"))
  2405.          (P_DelEmptyDir)
  2406.         )
  2407.       )
  2408.       (if #chk_c_example
  2409.         (
  2410.          (delete (cat @default-dest "Developer/C/Examples/" @app-name "-Demo.c") (optional "force"))
  2411.          (set #dir (cat @default-dest "Developer/C/Examples"))
  2412.          (P_DelEmptyDir)
  2413.         )
  2414.       )
  2415.       (set #dir (cat @default-dest "Developer/C"))
  2416.       (P_DelEmptyDir)
  2417.      )
  2418.        )
  2419.  
  2420.        (complete 46)
  2421.  
  2422.        ; C++
  2423. ;    (if (OR #all (IN #uninstall_proglang 1))
  2424. ;    )
  2425.  
  2426.        (complete 54)
  2427.  
  2428.        ; Asm
  2429.        (if (OR #all (IN #uninstall_proglang 2))
  2430.      (
  2431.       (if #chk_asm_i
  2432.         (
  2433.          (delete (cat @default-dest "Developer/Assembler/Include/MUI/" @app-name "_mcc.i") (optional "force"))
  2434.          (set #dir (cat @default-dest "Developer/Assembler/Include/MUI"))
  2435.          (P_DelEmptyDir)
  2436.          (set #dir (cat @default-dest "Developer/Assembler/Include"))
  2437.          (P_DelEmptyDir)
  2438.         )
  2439.       )
  2440.       (if #chk_asm_example
  2441.         (
  2442.          (delete (cat @default-dest "Developer/Assembler/Examples/" @app-name "-Demo.s") (optional "force"))
  2443.          (set #dir (cat @default-dest "Developer/Assembler/Examples"))
  2444.          (P_DelEmptyDir)
  2445.         )
  2446.       )
  2447.       (set #dir (cat @default-dest "Developer/Assembler"))
  2448.       (P_DelEmptyDir)
  2449.      )
  2450.        )
  2451.  
  2452.        (complete 62)
  2453.  
  2454.        ; Amiga-E
  2455.        (if (OR #all (IN #uninstall_proglang 3))
  2456.      (
  2457.       (if #chk_e_e
  2458.         (
  2459.          (delete (cat @default-dest "Developer/Amiga-E/Modules/MUI/" @app-name "_mcc.e") (optional "force"))
  2460.          (set #dir (cat @default-dest "Developer/Amiga-E/Modules/MUI"))
  2461.          (P_DelEmptyDir)
  2462.          (set #dir (cat @default-dest "Developer/Amiga-E/Modules"))
  2463.          (P_DelEmptyDir)
  2464.         )
  2465.       )
  2466.       (if #chk_e_example
  2467.         (
  2468.          (delete (cat @default-dest "Developer/Amiga-E/Examples/" @app-name "-Demo.e") (optional "force"))
  2469.          (set #dir (cat @default-dest "Developer/Amiga-E/Examples"))
  2470.          (P_DelEmptyDir)
  2471.         )
  2472.       )
  2473.       (set #dir (cat @default-dest "Developer/Amiga-E"))
  2474.       (P_DelEmptyDir)
  2475.      )
  2476.        )
  2477.  
  2478.        (complete 69)
  2479.  
  2480.        ; Modula-II
  2481.        (if (OR #all (IN #uninstall_proglang 4))
  2482.      (
  2483.       (if #chk_modula_def
  2484.         (delete (cat @default-dest "Developer/Modula/txt/MCC" @app-name ".def") (optional "force"))
  2485.       )
  2486.       (if #chk_modula_mod
  2487.         (delete (cat @default-dest "Developer/Modula/txt/MCC" @app-name ".mod") (optional "force"))
  2488.       )
  2489.       (if (OR #chk_modula_def #chk_modula_mod)
  2490.         (
  2491.          (set #dir (cat @default-dest "Developer/Modula/txt/MCC"))
  2492.          (P_DelEmptyDir)
  2493.          (set #dir (cat @default-dest "Developer/Modula/txt"))
  2494.          (P_DelEmptyDir)
  2495.         )
  2496.       )
  2497.       (if #chk_modula_demo
  2498.         (
  2499.          (delete (cat @default-dest "Developer/Modula/Demo/" @app-name "Demo.mod") (optional "force"))
  2500.          (set #dir (cat @default-dest "Developer/Modula/Demo"))
  2501.          (P_DelEmptyDir)
  2502.         )
  2503.       )
  2504.       (set #dir (cat @default-dest "Developer/Modula"))
  2505.       (P_DelEmptyDir)
  2506.      )
  2507.        )
  2508.  
  2509.        (complete 77)
  2510.  
  2511.        ; Oberon
  2512.        (if (OR #all (IN #uninstall_proglang 5))
  2513.      (
  2514.       (if #chk_oberon_mod
  2515.         (
  2516.          (delete (cat @default-dest "Developer/Oberon/txt/MCC" @app-name ".mod") (optional "force"))
  2517.          (set #dir (cat @default-dest "Developer/Oberon/txt/MCC"))
  2518.          (P_DelEmptyDir)
  2519.          (set #dir (cat @default-dest "Developer/Oberon/txt"))
  2520.          (P_DelEmptyDir)
  2521.         )
  2522.       )
  2523.       (if #chk_oberon_example
  2524.         (
  2525.          (delete (cat @default-dest "Developer/Oberon/Examples/" @app-name "Demo.mod") (optional "force"))
  2526.          (set #dir (cat @default-dest "Developer/Oberon/Examples"))
  2527.          (P_DelEmptyDir)
  2528.         )
  2529.       )
  2530.       (set #dir (cat @default-dest "Developer/Oberon"))
  2531.       (P_DelEmptyDir)
  2532.      )
  2533.        )
  2534.  
  2535.        (complete 85)
  2536.  
  2537.        ; Autodocs
  2538.        (if (AND #chk_autodoc (OR #all (NOT (BITXOR #uninstall_proglang #chk_proglang))))
  2539.      (
  2540.       (delete (cat @default-dest "Developer/Autodocs/MCC_" @app-name ".doc") (optional "force"))
  2541.       (set #dir (cat @default-dest "Developer/Autodocs"))
  2542.       (P_DelEmptyDir)
  2543.      )
  2544.        )
  2545.  
  2546.        (set #dir (cat @default-dest "Developer"))
  2547.        (P_DelEmptyDir)
  2548.       )
  2549.     )
  2550.  
  2551.     (complete 92)
  2552.  
  2553.     (P_CustomUninstall)
  2554.  
  2555.     (complete 100)
  2556.     (exit #exit_uninstall_finished (quiet))
  2557.    )
  2558.  )
  2559.